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A  PROTOTYPE  PROGRAM  FOR  TARGET  INFORMATION 


Introduc ti on 

More  and  rnore  of  the  applications  of  modern  amphibious 
warfare  n.e.ve  turned  to  computerized  solutions,  from 
real-time  combat  systems  to  the  data  bases  that  control  the 
men,  materiel  and  resources  neeaea  to  waee  war.  Tne  products 
of  tne  technological  explosion  nave  enabled  tne  Navy-Marine 
Corps  ampnioious  team  to  do  more,  to  do  it  faster  and  to  no 
it  witn  a  decree  of  efficiency  and  accuracy  previously 
uno  b taina  ble  . 

Tni s  evolution  of  moaern  technology  nas  not  yet  reached 
tne  Marine  Corps  tactical  commana  posts  established  on  tne 
oeacnnead.  Tne  target  information  section  of  tne  landing 
force  fire  support  coordination  center  (FSCC)  plays  a 
signficant  role  in  tne  conauct  of  effective  cooraination  Df 
tactical  air,  artillery  ana  naval  gunfire  support  on  targets 
of  hieh  priority.  lex  the  target  information  officer  and  nis 
staff  accompiisn  tneir  important  tasK  by  tne  use  of  inaex 
card  files,  cross-reference  files,  nana  written  lists  of 
targets  ana  colored  urease  pencils  on  acetate-covered 
tactical  maps.  This  metnod  is  time  consuming,  slow  in 
response  to  inquires  about  target  information,   tedious   ana 


difficult  to  maintain  in  a  current  status  ana  ices  not 
provide  information  in  a  sufficiently  timely  and  accurate 
manner.   It   is   4^  year   oia   tecnnoiogy   in   tne   age  of 

computers . 

Tne  requirement  to  automate  nary  or  tne  functions  of  tne 
tactical  command  post  nas  teen  identified,  and  tne  command 
post  of  tne  future  is  being  planned  for  ana  developed  no*. 
(Jntil  it  arrives,  tnere  is  a  nee1!  to  provide  an  interim 
capaDiiity  to  tne  landing  force.  An  automated  solution  to 
tne  target  information  function  will  simplify  tne  tas£  cf 
tne  target  information  section  considerably,  will  provide 
rapid,  accurate  and  timely  target  information  to  tne  members 
of  tne  FSCC,  ana  can  De  male  operational  now,  five  full 
years  cefore  tne  planned  introduction  of  tne  computerized 
command  post . 

Tnis  report  contains  a  prototype  program  for  target 
information  wnicn  will  improve  tne  operational  capability  cf 
tne  landing  force  FSCC  and  snow  tnat  tne  implementation  of  a 
suitable  and  effective  target  information  system  is 
possible.  Tnis  implementation  and  lesie-n  of  a  wording 
prototype  will  increase  operational  effectiveness 
immediately  as  well  as  provide  a  testbed  and  learning  model 
for  tne  future  automated  command  post.  Tne  prototype  is 
designed  to  perform  all  tne  duties  and  functions  of  tne 
target  information  section  as  currently  stated  in  doctrinal 
puolica ti ons .  Tne  interim  system  will   nopefully   contribute 
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to  t ne  a  e  v  e  i  o  pm  e  n  t  of  tne  future  system  ana  identify  areas 
of  concern  ana  improvement  before  tne  future  N'arme  Corps 
system  becomes  operational. 


Background 

An  important  aspect  of  amphibious  fire  support 
coordination  (tne  planning  ana  execution  of  tactical  air, 
artillery  and  naval  srunfire  support  so  that  tareets  5  re 
adequately  covered  cy  a  suitacle  weapon  or  group  of  weapons) 
is  tne  function  of  tareet  information.  One  of  tne  majcr 
duties  of  tne  fire  support  coordinator,  tnat  member  of  tne 
landing  force  staff  responsible  for  coordination  of  -'ire 
support,  is  to  ensure  tnat  tne  fire  support  coordination 
center  receives  ana  disseminates  available  target 
information  to  all  staff  sections  and  commands  reauirine  tne 
information,   fie   aiso   must   worse   closely   witn  tne  target 

information  officer  and  tne  commander  and  nis  staff   in   tne 
selection   of   targets   ana  assignment  of  classification  and 
attact  priorities. 

Target  information  is  tne  direct  application  of  -rorcat 
intelligence  to  fire  support  ana  is  a  Key  to  tne  proper 
employment  or  supporting1  arms  in  conjunction  witn  ea.z*  of 
tne  plans  of  tne  ampnibious  operation.  Effective  fire 
support  coordination  and  tne  planning  of  amphibious 
operations  generate  a  continuing  requirement  for  target 
acquisition,  dissemination,   evaluation  and   recommendation 


i' or  a  1 1  a  c  £ . 

To  accomplisn  tms  important  taste,  trie  commander  of  tne 
arpnibious  tasff  force  assigns  a  target  intelligence  officer 
to  tie  supporting  arms  coordination  center  (SACC).  Tnis 
officer  operates  tne  target  information  center  (TIC)  and 
wonts  closely  with  tne  air  intelligence  officer,  tne  landing 
force  targeting  representatives  and  tne  supporting  arms 
coordinator.  Tne  commander  of  tne  landing  force  ftas  a  target 
information  officer  (TIO)  wno  operates  tne  target 
information  section  (TIS)  as  an  integral  part  of  tne  landing 
force  fire  support  coordination  center  and  a  target 
intelligence  officer  wno  functions  in  tne  landing  force 
intelligence  center. 

Tne  Maw  staff  uses  a  computerized  target  information 
system  which  is  part  of  tne  snipooard  Amphibious  Support 
Information  System  (ASIS)  and  maintains  tne  list  of  targets 
as  part  of  a  data  base.  Target  information  operations  in  tne 
SACC  are  tnus  computerized  ana,  wnile  tne  ASIS  target  system 
is  not  tne  most  modern  of  data  base  systems,  it  is 
efficient,  effective  and  fast.  Wnen  tne  functional 
responsibility  for  maintaining  targets  is  passed  asnore  to 
tne  landing  force  TIO,  tne  computer  system  is  replaced  oy  an 
index  card  filing  system,  wnicn  ,  *nile  effective,  is 
neitner  fast  nor  efficient  by  comparison.  Additionally,  tne 
index  card  system  lends  itself  to  inaccuracies  and  omissions 
in   target   data,   particularly  wnen  tne  information  must  te 


maintained  in  a  timely  manner.  Tne  tactical  reouirement  for 
accurate  and  timely  target  information  is  no  less  critical 
or  important  wnen  tne  landing  force  is  on  tne  ceacn,  yet  tne 
system  to  accomplisn  tr.is  tass  is  antiquated  and  cuToersome. 

Tne  staff  of  tne  TiS  manually  transfers  tne  target 
information  data  contained  in  tne  ASIS  aata  base  to  b  Dy  S 
incn  target  cards.  After  duplicating"  tne  entire  target  tile, 
the  TIS  must  construct  a  cross  reference  file  to  list  tne 
target  bv  srid  location  and  a  cross-index  file  to  Keep  trace 
of  certain  tyoes  of  targets.  In  addition  to  tne  target 
cardSt  tne  TIS  aiso  maces  up  lists  of  particular  categories 
of  targets  *hich  may  be  of  interest  or  value  to  members  of 
the  FSCC. 

Tne  TIS  obtains  Intelligence  information  from  landing 
force  and  supportine  arms  agencies,  converts  tnis  to  target 
information  and  enters  tne  information  into  tne  target  card 
files.  Tne  information  is  made  available  to  tne  supporting 
arms  representatives  in  tne  FSCC  and,  based  on  tne  TIO's 
recommendations,  a  decision  is  made  when  and  now  to  attactt  a 
particular  tarcet.  Results  of  attacfcs  on  targets,  front  line 
reports  and  intelligence  information  are  used  to  refine  tne 
target  list  and  delete  or  deprioritize  tnose  targets  tnat 
present  a  diminished  threat  to  the  landing  force. 

Access  to  specific  information  from  tne  target  list  (for 
example,  more  than  one  category  of  tne  cross-index  files) 
requires  physically  searcning  through   each   list   and 


constructing  sub-lists  to  determine  the  appropriate 
information.  The  constant  availability  of  timely  and 
accurate  target  information  is  required  for  tne  effective 
employment  of  supporting  arms  and  planning  of  fire  support. 
Tne  TIS  plays  a  tey  role  in  providing  tnis  information  and 
the  constant  process  of  adding  to  the  target  list,  selecting 
targets  for  attaci  and  deleting  targets  once  neutralized  is 
performed  by  the  TIS  staff  using  tne  target  card  file. 

One  of  the  most  complex  aspects  of  modern  ampnibious 
warfare  is  the  control  and  coordination  of  supporting  arms 
particularly  in  tne  transition  of  responsibility  from  tne 
Navy  in  ampnibious  snips  to  the  Marine  Corps  combat  units 
asnore.  The  grease  pencils,  map  boards  and  field  radios  tnat 
have  served  Marines  so  well  since  tne  days  of  Guadalcanal 
will,  in  tne  future,  be  eclipsed  by  tne  automated  system 
called  the  Marine  Integrated  Fire  and  Air  Support  System 
(MIFASS). 

MIFASS  is  part  of  tne  Marine  Corps  integrated  command 
and  control  system  called  MTACCS  (Marine  Tactical  Command 
and  Control  Systems),  a  collection  of  eight  major  systems 
which  will  give  the  Marines  a  capability  of  exercising 
real-tiTie  command  and  control  of  combat  forces  in  the 
post-19Be  time  frame.  MIFASS  is  designed  to  perform  the 
functions  of  the  fire  support  coordination  center,  (FSCC) 
the  direct  air  support  center  (DASC)  and,  to  a  degree,  the 
artillery   fire   direction   center   (FCC)   at   one   central 


location  called  the  Fire  and  Air  Support  Center  (FASC). 

It  is  a  distributed  processing  system  in  which 
microcomputers  control  interactive  display  devices,  manaee 
data  oases,  perform  computational  tas^s  and  drive  printers 
to  provide  hard-copy  records  or  messages  and  operator 
decisions.  It  is  currently  in  full  scale  engineering 
development  with  an  initial  operational  capability  planned 
for  the  1396-1987  time  frame.  MIFASS  addresses  tne 
requirement  for  target  information  by  providing  the  TIO  with 
a  digital  display  device  wnicn  will  nave  botn  a  graphical 
representation  of  the  target  on  a  cattle  map  and  a  video 
screen  for  alphanumeric  display  of  target  information. 


Statement  of  the  Problem 

An  automated  solution  to  tne  target  information  function 
will  not  be  realized  until  tne  introduction  of  tne  MIFASS 
conputers  into  tne  Fleet  .Marine  Forces.  Until  sucn  time  as 
the  system  is  delivered,  tne  target  information  function  cf 
tne  FSCC  is  tied  to  tne  current  doctrine  and  tne  target  card 
filing  system. 

In  this  report,  an  interim  solution  to  tne  problem  of 
automating  tne  target  information  function  of  tne  FSCC  is 
presented.  It  computerizes  those  basic  functions  of  tne  T1S 
in  a  simple,  inexpensive  and  effective  manner.  It  simplifies 
the  tas^s  of  the  TIS,  provides  a  mechanism  for  rapid  and 
accurate   retrieval   of  target  information  and  conic!  improve 


he   operational    capability"   or    tne   FSCC. 


Nature  of  tne  Solution 

Tne  design  tasK  is  brcxen  down  into  three  distinct 
parts,  eacn  of  wnicn  is  influenced  by  tne  lual  constraints 
cf  a  microcomputer  environment  and  a  friendly  user 
interface.  Tne  design  is  specifically  aldrebSed  in  tne 
tnesis  wnicn  is  supported  by  tnis  program  listing  report. 

Tne  design  of  tne  physical  and  logical  lata  case  is 
influenced  by  tne  desire  to  nave  a  simple  yet  sufficiently 
informative  data  model,  a  rapid,  real-time  response  and  a 
restricted,  single  application  system.  Tne  system  design  is 
influenced  by  t'r.e  microcomputer  environment  wnicn  rpstricts 
tne  user  botn  in  mam  memory  space  and  tne  speea  of  access 
to  secondary  storage  and  tne  requirement  for  an  effective 
interactive  system  for  a  non-sopni sticatei  user. 

Tne  design  of  tne  software  to  implement  both  tne  lata 
base  and  tne  system  is  o verwnelmi n^iy  influenced  by  tne 
requirement  that  tne  system  support  real-time,  interactive 
processing  of  a  casual,  non-programmer.  Termed  "Marine 
proof"  in  the  vernacular,  it  requires  a  sophisticated 
interface  employing  user  friendly  dialogue  techniques  to 
ensure  tnat  tne  operation  is  simple  and  efficient.  For  tnis 
reason,  and  to  facilitate  system  portability,  a 
microcomputer   compatable   high   level   programming  language 


I    TT 


UCSC   Pascal  )    is   used. 


Tne  report  is  divided  into  two  sections.  Tne  first  is 
the  sourr?  rode  Listing ,  tsy  module  ,  of  tne  Microcomputer 
System  for  Target  Information  'vI3Tr,  program.  Tne  second  is 
3  listing  of  tne  text  files  used  in  tne  interactive  user 
interface  wnicn  complements  lucn  of  tne  prototype  profrrc^. 
Tne  reader  is  referred  to  tne  Naval  Postgraduate  Scnooi 
•rasters  taesis  LlJ  for  additional  details  on  tne 
specifications,  lesion  ani  Implementation  of  tne  system. 
This  report  is  issued  in  conjunction  with  and  as  a  Key 
element  of  tne  tnesis. 
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APPENDIX— A 


is 


MIST  I  system 

list  is  not   a   compiled 
and 


Tne   source   cole   listing   for   tn 
organized  by  functional  module.  Tne  list 

listing  tut  is  separate  by  function  and  cy  module.  In  an 
effort  to  decrease  user  confusion,  tne  following  outline 
snows  tne  lceical  organization  of  tne  program.  Tne  segment 
procedures  are  marked  by  a  *. 


INTERFACE 


SLOBALS 
.QUERY* 
.TARGET*  . 

IN  IT* 
INFORM* 

UTILITY"- 


.  .  .£DA* 

. . .TGTPROCS 


.  .  .A DDT ARGET 
.  .  .CHANGE 

.  .  .TARGET 


Tne  Interface  module  contains  include   statements   wnicn 
instruct   tne   compiler  to  compile  tne  program  in  tne  proper 

Tne  segment  proceaures  are  tne  first 
be  compiled.  Tnis  necessitates  tne  declaring 
system  routines  in  tne-  beginning  or  tne 
UCSD  Pascal  include  statement  allows  tne  user 
to  identify  tne  volume  nane  as  well  as  tne  file  name. 
'Store"  is  tne  name  of  tne  volume  wnicn  contains  tne  source 
cole,  tnus,  it  appears  in  tne  include  commands. 


logical  oraer 
procedures  to 
of  many  of  tne 
listing.   Tne 
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;  +  +  +  +  +  +  +  +  +  +  +  +  +  ++  +  +  ++  +  i-  +  +  +  +  +  +  +  +  +  +  f  t*' 

"AlN  PROGRAM iNTERJs'AC. 

"Oeram  interface  ( input  .output ) ; 


■+*). 


*) 


("Slstoretelobais.text*) 


rocelure  clear;  forward; 

rocedure  prompt;  forwari; 

rocelure  select  J  f  orward? 

rocedure  TienuerrorJ  forward? 

rocelure  errori;  i'orwaru; 

rocelure  lines(y  :  integer); 

rocelure  loadms*?;  forwari; 

rocedure  ^etfllef  filename  : 


procedure  ielay?  forwari; 

procedure  spacebar;  forward? 

procedure  returnbar?  forward? 

procedure  nalt?  forward? 

procedure  error?;  forward? 
forward; 

* 

string);  forward? 


*  $ I s  1 0  r e : que  r y . te  x  t * ) 

^SI store: Dda .  text* ) 

*$Istore:tgtprocs.text*) 
*$Istore:  add  target  .text* ) 
*SIs torercnange .  text*} 
*slstore: target .text*) 
*$Istore:init .text*) 
*$ I s  t o  re : i  nf  o  rm . t e  xt  * ) 
"SI  store: utility. text*) 


procedure  clear; 

cegi  n 

write (cnr(  61    ) ) ; 
end; 


procedure  prompt? 

begin 

wri  te (prompter ) ; 
end? 

procedure  spacebar? 

begin 

wri teln( space br); 

prompt ; 
repeat 
read(cn); 
unti 1  en  =  '  '; 
end; 
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procedure  select ; 

begin 

writem(selectop); 

prompt » 
eni  ; 


procedure  lines; 

var   yy    :  integer; 

begin 

for  yy  :=  1  to  y  do 

write  in; 
end; 

procedure  returnbar; 

Deei  n 

writem(  returner) ; 

prompt ; 

repeat 

re  a  d  ( c  n )  »" 

until  eoln(input); 
end; 


procedure  loaamsg; 

oegi  n 

lines (3) ; 

wri  te  (cnr(  14)  ) »" 

wri  teln( ' 

write(cnr(24) ) ; 

wri teln( cnr(29) ) ; 
end; 


PROGRAM  E£I<NG  RKAD  IN PLEASE  WAIT 


procedure  delay; 

var 

i,  y,  z  :  inteeer; 

begin 
z  :=  0; 
i  :=  e  ; 
repeat 

for  y  :=  1  to  180  do 

z  :=  z  +  1  ; 
x  :=  x  +  1  ; 
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until    x   =   Id 
end ; 


procedure    nait  ; 
var 


z    :    integer; 


ce^i  n 

lines (2); 

writei'  System   nailing. 

for    z     :=   1    to    1  kJ    do 
De^i  n 
delay ; 
wri  te (dot ) ; 
end? 
end; 


i  t 


procedure   errorl » 

be<*in 

lines (1) J 

wn  tem(  ' 
wri  teln(  ' 
wri  teln(  ' 
lines(l)  ; 
prompt ; 
end; 


Tne  oroper  format  is  a  number  from  tne')} 
options  iistei  above.  Please  press  tne'); 
RETURN    sey    and    reenter    your    cnoice.'}} 


procedure    menuerror; 

be?i  n 

lines(l) ; 

if   eoln    (input)    tnen 

besri  n 
errorl; 
readm; 

end 

else   errorl; 

readln; 
end; 


procedure    error2; 


oe^in 

iines(3)  >' 
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wri 

wri 

lin 

num 

if 

Deg 

1 

w 

w 

1 
n 
end. 
end? 


tein(  ' 
tela(  ' 
tein(  ' 
esCOt 

ocut  := 
nuTi  Dout 
in 

ines (l ) 
ntem( 
ri  teln( 
ines ( 1 ) 
urn  bout 


Tne  target  identifier  does  not  currently^); 
exist  in  tne  target  file.  Piease  reenter']; 
tne  target  identifier.'); 


tumbout  ♦ 
:  3  tnen 


i; 


:=  0  J 


To  leave  tni s  procedure,  type  a  0'); 
followed  by  pressing  tne  RETURN  Key.'); 


procedure  getfilej 

(*   filename  :  string   declared  forward 


*) 


(*. 


var   cuffer  :  string; 

usermessage  :  text; 

Ce^in 

reset(use message, filename); 
repeat 
cesi  n 

readinfusermessage, buffer) ; 
writeln( Duffer) ; 
ena; 
until  eof (usermessage ) ; 
close (usermessage , iock) ; 
enn; 


procedure  Duiliempty; 
var   j  :  integer; 


t)l 

Bffin 

witn  enptyT 

rec  ao 

begin 

tnum  := 

'00i60fc?0'; 

ait  :  = 

loc  :  = 

'00000000 '; 

ace  :  = 

class  : 

-         j 

pri  :=  '  '; 
ttype  :=    '; 


lb 


Sd 
St 

ae 
re 
■na 
so 
pn 
DT 
pn 
to 

fo 

be 


en 
wit  ft 

De 


en 
end; 


en 

d; 

e 

(?i 

in 
al 

lo 
cl 
pr 
ac 
tt 
sa 
de 
a; 


a: 

sc 

•n  : 

pre 

ur 

oto 

'Jac 

oto 

r  i 

fla 

r  i 

ein 

BDk 

BDA 

BDA 

BDA 

BDA 

BDA 

dj 


» 


=  i  e  b  c  » 

1'  e  r  :  = 

:=  mapre:*er; 

num  :  = 

t  :=  ; 

corn  : =  loc  » 

:=  1  to  numbervar  io 
g[ij  :=  off; 

i-   1  to  3  do 

[lj  .DTSsurv  :=  DTGacti 

[i  J  .f i  reuni  t  :  = 

[ i J  .ntrnds  :  = 

[i  J  .damrep  :=    ' ; 

[i  J  .damass  :=    '; 

[i ]  .BDAtext  :=  desc; 


mptyOrec  do 

n 

um  :  = 

t  :  =       ; 

c  :  = 

ass  :=    '; 

i  :=  '  '; 

c  :  =     » 

yps  :=    ; 

*  -     » 
sc  :  = 


procedure  buiidmap; 
var   j  :  integer; 

beein 

i  :=  0; 

j    8"   e» 

wniie   not    eof (target)    do 

begin 

sees( target  , i  ) ; 

get(target); 

tgt7ian[ij     :=    target  \  tgtrec .tnumj 

i    :=    i    +   i; 

j    :-   j    +    IS 

if    j    =   10   tnen 
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Degin 

write (dot ) > 

J  :=  *» 

ena; 

end; 

ena; 


proceaure  openfiies; 
var    io  :  integer; 


***    NO  EI  Si  IN  £RL'41      £      ***'); 


cegin 

filecnecK  :  =  false; 

ciearf 

lines(d) ; 

lines  4); 

write('     Opening  file...'); 

write (10 t ) ; 

(*$I-*) 

reset  ( target , '#5: target fiie.data' ) ; 

(*$I+*) 

io  :=  i ore  suit; 

if  io  in  [4, 5, 9 J  tnen 

cegin 

clear; 

vn  tem(  cnr(?  )  ) ; 

lines( b)  ; 

wri  teln(  cnr(l<i } ) ; 

wntem(  ' 

wri  te(cn  r(24)  )> 

writeln( chr (29) ) » 

lines(S) ; 

writelnt'   Insert  1'AROiT  diskette  in  drive  B  ana  restart  system 

nal  t; 

getout  :=  true; 

exi t( openf i les ) ; 
ena; 

if  io  <>  Z    tnen 
oegin 

filecnecK  :=  true; 

initialize; 
ena; 

wri te(do t ) ; 
(*$I-*) 
reset  ( CT, '»5:queryf i le . la ta  ' ) ; 

if  not  filecnecK  tnen 
oegin 

io  :=  io result; 

if  io  <>  1    tnen 
oesin 


lb 


t'ilecneCiC    :=    true; 
ini tialize ; 
end? 
end; 

wri  te(dot )  ; 
buildmap; 
wri te(dot ) ; 
filecnecK  :=  false; 
end; 


procedure  password? 

var 

n,z  :  integer; 
user  :  string; 
valid  :  boolean; 


begin  {1} 

valid  :=  false; 

clear; 

n  :=  i; 

lines(5)  ; 

wnile  (not  valid)  and  (n  <-   b)  do 

begin   {2} 

writelnC  PLEASE    ENTER   PASSWORD    AND    PRESS    RETURN    KEY 

prompt ; 

re adin( Keyboard, user); 

z  :=  1? 

wnile  (not  valid)  and  (z  <=  5)  do 

if  usend[zj  =  user  tnen 

begin{3} 

passwrd  :=  true; 
valid  :=  true 
end|3) 

else  z  :=  z  +  l  ; 
if  not  valid  tnen 
begint4} 

n :=  n  +  1  ; 

lines (3 ) ; 

writein('     **  PASSWORD  INCORRECT  **'); 

writeln(cnr(7) ) ; 

iines(l); 

if  n  >  5  tnen 

be?in{5} 


;  » 


writein(  ' 
wri tein( ' 
writeln(  ' 


writeln( 


Please   refer   to    tne   password    instructions'); 
in    tne    target    information   system   nandoooic'); 
for    tne    proper   input.'); 
lines (4) ; 
nait? 
linesU) ; 

**      To    restart    system    type   R     **')» 
exit (password) ; 
end;{b> 
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end;{2) 
end;{l} 


procedure  welcomei;  forward; 

procedure  welcome; 

beerin 
clear; 

writeln(dots) ; 

writelnC        WELCOME  TO  TEE  TARGET  INFORMATION  SYSTEM'); 
writeln(dots ) ; 
lines(l); 

writeln(  'Tftis  proeram  is  a  prototype  target  information  system  for'); 
writelnCtte  Fire  Support  Coordination  Center.  It  is  designed  to  be')j 
writeln(  'used  by  the  personnel  of  tne  tareet  information  section  of'); 
writelnCtne  landing  force  FSCC  in  accordance  witn  tne  principles'); 
writeln( 'outlined  in  FMFM  7-1  (Fire  Support  Coordination).'^; 
lines(2); 
writem(  'WARNING:') ; 

write(cnr(i4) ) ; 

writelnC       *»*  THIS  FILE  CONTAINS  CONFIDENTIAL  MATERIAL  •*•*); 
write(cnr(24) ) ; 
writeln(cnr(29) ) ; 
welcomei ; 
end; 

procedure  welcomei; 

begin 
writeln('  Tne  diskette  file  contains  targets  wnicn  are  normally  classifie 
writeln ( 'confidential .  The  disKettte  and  all  tne  bacxup  copies  snould  be 
writeln  Cnandled  as  normal  confidential  documents  and  properly  safeguard! 
writeln ('Targets  of  a  nigner  classification  snould  not  be  entered  on  tni; 
writeln ( 'file .  Current  emergency  destruction  procedures  for  confidential' 
writeln( 'material  apply.  Re-initializing  tne  system  removes  an  classifie 
writeln! 'information. ' ) ; 

lines(l) ; 

spacebar; 
end; 


procedure  welcome2; 

begin 
clear; 
lines(5); 
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•ltelnl 

'          li 

'lteln 

/to    i 0    D 

•lteln 

' 'from    tn 

•item 

'by    t  y  p  i 

.res (4 ' 

• 

•item' 

If 

•itelnl 

'doctrin 

•lteln' 

'or   the 

•lteln  1 

'au.m  fcer 
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.nes(2); 

si 

)ace  tar; 

end; 

-/lot'); 
er. ter  wnen  you  receive  a  prompt';; 
can  receive  neip  or  information'); 


at  any  tine  you  become  confused,  in  douct  about 
ext  or  wnat  vaiues  tc 
e  system  (  =  =  >  ) ,  you 
ng  a  ? . '  )  t 


you  need  more  information  on  now  to  operate  tne  system,'); 
al  guiieiines  for  target  information,  security  requirements'); 
types  of  formats  used  tor  target  information,  select  option'); 
1  from  tne  main  command  menu  wnicn  follows.'); 


procedure  mminfo; 


begin 

clear; 

writeln( stars ) ; 

lines(l)  ; 

eetflle (  'mminf ol . text ' ) ; 

lines (1) J 

space  Da  r; 

clear; 

lines(2)> 

getf i  le (  'mm info 2. text'); 

lines(l); 

space  car ; 

clear; 

lines(S) ; 

getf  i le ( 'mminfo3.  text ' )  ; 

lines (5) ; 

space  Da  r ; 
end; 


procedure  mainmenu; 


5esin 
clear; 
writel 
wri  tel 
writel 
lines( 
writel 
lines' 
writel 
writel 
wri  tel 
writel 
writel 
writel 
writel 


stars ) ; 


do 

; 


ts) ; 


Target  Information  System  Main  Command  Menu'); 


Tne  options  are:'); 

1.  System  Information'); 

2.  tforK  on  Target  File'); 

3.  Create  a  Special  Target  Li 

4.  Perform  Utility  Functions'); 

5.  Initialize  a  New  System'); 

6.  Information  aoout  tnis  Menu'); 

7.  Halt  Ooeration' ) ; 


t   J  t 
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lines(2); 

end; 


begin  (*  interface*) 


seto 
rest 
menu 
numb 
pass 
user 
user 
user 
user 
user 
•nenu 
pass 
if  n 
bull 
open 
If  e 
welc 
clea 
wel  c 
repe 
ma 
se 
re 
if 


ut 

art 

ioo 

out 

wri 

ill 

ill 

id[ 

ii[ 

id[ 

cna 

wor 

ot 

den 

fil 

eto 

ome 

r; 

ome 

at 

inm 

ad( 
en 
be? 
if 
cas 


:=  false; 

: =  false; 
p  :=  false; 
I  -  2 t 
: =  false; 


=  'COULTER'; 


-  &  > 


=  'MARINS'j 
=  'marine'; 
LI,  2,3,  4,  0,6  ,7,  /Ji 


u 

2] 

3J 
4J 
5] 

i; 

pass*rd    tnen   exit  (  interface  )  ; 
pty» 

es; 

ut    tnen   exit'in tar face); 


h; 


enu ; 
t; 
en )  i 

in  nenucnar  tnen 
in 

eoln  (input)  tnen  reaaln; 
e  en  of 

b  e  s  i  n 
1  o  a  d  m  s  g ; 
inform; 
end; 
begin 
loaimsg; 
tar?etmod; 
end; 
begin 

1  o  a  d  m  s  s ; 
query; 
end; 
be?in 
1  o  a  d  Ti  s  g ; 

utility; 

end; 
begin 

loadmsg; 


'1' 


t ,  * 


5 


HH 


'7' 


initialize; 
if  restart  men 
begin 
vri  te ( ' 
builimap; 
lines [2)  \ 
writeln(  ' 
lines(l ;  ; 
space  oa  rj 
end ; 
end; 
'?'  :  -in info; 


oegin 
setout 
nalt ; 
clear; 
end ; 
end 
end 
else  nenuerror; 
until  eetout  =  true; 
end . 


=  true; 


Process  ins; 


;  ♦ 


i UNCTION   COMPLETE  ) 


(=?++  +  +  +  +  +  +  +  +  + -t  +  + +-r +  +  e>j; 


INTERFACE  +  +  +  *  +  -t  +  +  *^  +  --^+ J-  +  -^ 


^+^'] 
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OLOBALS.TSXT 


t 


■  3,»  *-p  *i*  *V*  *I*  * 


const 

lot   =    ' 

stars   = 
lots    =    '. .  . 

spaceor   = 
returner   = 
prompter   = 
selectop   = 
return    = 
nu^bervar   = 
auTicertgt   =   300» 


'  rx  ^c  ;,;  ^  y*  ; 


■t'  i,i  *r  -t5  *i*  »i»  5Ji  *|5  5JS  3JC  5jS  ij*  2JS  »r  3»S  5J?  i»5  t*  *?  •!•  5(5  'J*  1*  *i*  *r 


•¥•  *i*  "i-  *n 


C^dgS 


'i*  #r  i*  *r  f" 


PLEASE  PRESS  SPACEJJAB  TO  CONTINUE'? 
PLEASE  PRESS  RETURN  TO  CONTINUE'; 

PLEASE  ENTER  OPTION  NUMBER  '," 
Return  to  Previous  ^enu'; 
19; 


type 


mvaiue  =  set  of  cnar; 
state  =  (on, off); 


Dattleiam  = 
BTSsurv  : 
f ireuni t 
n  t  r  n  d  s  : 
damrep  : 
iaTiass  : 
BDAtext  ; 

end; 


packed    recor: 

strinsL^J  J 
:    s trinfc*  [cj  ; 

string [10 J  ; 

cnar; 
cnar; 

string[4iJj 


tarrec   =   pacisea   recori 

flag    :    pacrtei   array 
t  n  u  m    :    s  t  r  i  n  e  [  6  J  ; 
loc    :    string [cj  ; 
ait    :    stringUJ  ; 
desc    :    string  [40]  ; 
ciass    :    cnar; 
pri    :    cnar; 
stat    :    cnar; 
ttype    :    cnar; 
sa    :    cnar; 
rem    :    strin?[4:2]  ; 
Tiaprefer    :    string[20j > 
sour    :    s trirg  [20J ; 
ptiotonum    :    strineLlSJ; 
LTGact    :    string[7J  ; 
piotocori    :    string[3j; 
&~.c    :    cnar; 

.EDA  :  packed  array  [1. 
end; 


[1 . . nuroervar J    of    state; 


3j    of    battieaam 


querytet    =   packed    record 
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flag  :  bute; 
ttype  :  cr.ar; 
clabb  :  c n a r J 


so  : 
pri 
a  c  c 
stat 
tnum 
1  oc 
al  t 
le  sc 
end; 


cnar ; 

cnar; 

crar ; 
:  cnar; 
:  string[6J  ; 

s  t  r  i  n  e- 1  e  J  ; 

s  trin<?  [4-j  ; 
:    string [30 J 


stri ng[6J  I 


targetmap   =   packed    array    [0 .  .numoertgtj    of 

grillocmap   =   pacKel    array    [2 .  .numbertgtj    of   string!    J» 

StarJet    =   pac<ei   array    [0 . .numbsrtfftj    of    queryt*?t; 


var 


srilna 
tgfnap 
target 
CT  :  f 
n  o  c  n  a  r 
res  tar 
userii 
nenuca 
nos tri 
recnum 
f i 19 en 
endBDA 
x,  i  , 
empty? 
emptyC 
datafca 


n 


il 

» 

t, 

ar 


ii 
re 

T9 
S9 


ta 
fi 

9     0 

cn 
me 
pa 

,  o 
a  urn 
fe, 
oi, 
,  E 
c, 


le 
f 

nu 

9  D 
Uf 

bo 
cu 
t 
Da 
cu 
cu 
wt 


Hoc 

9tTid 

of 

reco 

cnar 

loop 

ed   a 

ucar 

fer, 

u  t , 

rren 

rap, 

coun 

rren 

rren 

aive 


map 

P» 

rec 

rd 
; 

»    P 
rra 

• 

st 
a  urn 
t , 

do 
ter 
tgt 
tOT 
it 


ord  t^trec  :  tarrec  enc; 
querrec  :  queryt^t  end? 

asswrd,  ^e tout  :  Doolean; 

y  11  ..  5  J  of  string; 

nvaiue ; 

r  :  string; 

bcnecK,  fls,  raaa-e,  flae  :  integer; 

Tianiato  ryi  tern ,  neipme,  finisned  :  oooiean; 

ne,  quit  :  boolean; 

,    n    :    ia t9?er ; 

:    tarrec; 

:    queryti?t; 


SYSTEM 


■L  SEALS     *) 


2  b 


(*      QUERY  .TEXT 

segment  procedure  4uery; 

var    charmenu  :  mvaluei 


teiiused,  firs:  :  boolean; 

amount,  left,  searcher,  count,  recccunt  :  integer; 

inde*  :  cnar; 

Scnecic,    Pcnecir,    /lenecx,    statcnec<c    :    string [16J  ! 


iuQt^it,  rtueui,  auueLi,  5  u  at  u 
Tcnecic,  Ccaectc,  emptystring  : 
cat    :    array    11.  .5 J    of   btrin*; 


string [lbj ; 


procedure  getdatabase; 

var  j  :  inteeeri 

begin 
clear; 
linesU); 

writelnt'    Data  case  bein,?  loaded  into  memory Please  *ait')i 

lines (5) ; 

write (  '  loadine. . .  ' ) ; 

i  :=  0,* 

j  :=  0; 

close(vT,lociO ; 

reset(CT, '#5:queryf ile.data') ; 

*nile   not    eof(QT)    do 

be?in 

seet(ST,i )  ; 

get(2T); 

databaselij    :=   w?~.querrec> 

l    :=    i    +    1 ; 

J    8-   J    +    li 

if    j    =   Id    men 

begin 

write(dot)  ; 
.1   :=  e; 
end; 
end; 

lines(t>) ; 

write('  LOADING    COMPLETE'); 

reccount    :=   i; 
for   i    :=    1    to   4   do 
delay; 
end; 
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ocedure   Tor=s  =  ar;fi;    forward; 
•ocedure   searcndatabase  ; 


??in 

for  i  :=  fe*  10  re c count  -  1  lo 
begin 

case  searcher  of 
1  :  be?in 

if  first  tnen 
besrl  n 

if  dat  abase  [i  J  .  t  type  =  index  teen  iatatase  [ij  .flae  :=  on 
end 

else  if  ( lata  base  I  ij  .  f  ia?  =  on)  and  (dataoaselij  .  ttype  O  ir.iex) 
tnen  da tabase  [ij .f la?  :=  off? 
end; 
'd    :  b  e  ?  i  n 

if  first  tnen 
begin 

if  database  I  ij  .class  =  index  tnen  da ta bas e  {  ij  . f 1 ag  :-  on 
end 

else  if  ( database  [ij  .flag  =  onx  and  'database  I i J  . class  <>  iniex) 
tnen  da  tabase  [  ij  .f  las*  :=  off; 
end; 

3  :  begin 

if  first  tnen 
begin 

if  database  [i J  .sa  =  inaex  tnen  database  [i J . f lag  :=  on 
end 

else  if  { database [ij  . flag  =  on)  and   (da ta oab=  [i J  .  sa  <>  index^ 
tnen  da tabase fi J .flag  :=  off; 
end; 

4  :  begin 

if   first    tnen 
be?i  n 
if   database  [ij  .pn    =    index    tnen   data tase  [i J  .f  la?    :=    en 
end 

else    if    (data  base  I ij . f la?  =    on)    and    (database  1 ij  . pri    <>   index) 
tnen    database  [i J .flag    :=   off; 
end; 

5  :  be?in 

if  first  tnen 
begin 

if  database  I.  ij  .ace  =  index  tnen  data  base  I  i  J  .  flag  :=  on 
end 

else  if  ( data  base [ij . flag  =  on)  and  (database [ij  . ace  <>  index) 
tnen  da tabase [i J  .f la?  :=  off; 
end; 
6,  7  :  noresearcn; 
end; 
end; 
amount  :=  2; 
for  i  :=  0  to  reccount  -  1  do 
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if  da  tabase  [i  J  .fia?  =  on  men  anount  :=  amount  +  1» 
iines(2); 

writeln('  Number  of  targets  in  special  list  is  ', amount); 

lines (2); 
space  bar; 

index  :=   '» 

first  :=  false; 
end; 


procedure  nnoresearcn; 

begin 

case  searcher  of 

6  :  be?in  {active} 

if   first    tnen 
beerin 

if    (database  [ij  .stat    =    'l')    or    ( database  [ij  . s tat    =    '2')    or 

( database  [ij .stat    =    '3')    or    (data Dase [ij  •  stat    =    '4')    tnen 

databaselij.fla?    :=    on 
end 
else   if    (database UJ .flag  =   on)    and    ( (database  [i J  .  stat    =    '5') 

( database [i J .sta t    =    'b'))    tnen   da ta base [ i J . f la?    :=    off? 
end; 

7  :  begin  {inactive} 

if  first  then 
begin 

if    ( database  [ij  . s ta t    =    '5')    or    ( database  [ij  .s tat    =    'b')    tne 
database[ij.fla<?    :=    on 
end 

else   if    (database  [ij  .flag  =   on)    and    (( database  [l j  .  s tat    <>    '5' 
(database  I ij .stat    <>    'b'))    tnen   database  [  ij  .f la?    :=    off; 
end; 
end; 
end; 


procedure   CBtype; 


begin 
repe 
ciea 
line 
?etf 
writ 
line 
sele 
read 
if  c 
be?i 
if 
if 


at 
r; 
s(2 

ile 
eln 
s(l 
ct; 

( en 

n  i 

n 

eo 

en 


); 

( 'type menu. text ") ; 

( '  R. ', return) ; 

); 
); 

n  cnarmenu  tnen 

ln(input)  tnen  readln; 
in  ['0' ,  '4  '♦ 'R  ',  'r'J  tnen  exit(C3type) 
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else    if    en    =      ?      tnen 
besrin 
clear; 
getf iie(  'tgt type. text 

space  Da  r ; 

end 
else 


begin 


sear'-ner    := 
left    :  =   left 

index  :=  ca? 
count  :=  cou 
case    index  o 


1 
'■?' 

'3' 
'4' 
'5' 
'5' 
'7' 
'g' 

'9' 

end; 

searcniataba 
exi t (LBtype  ) 
end 
end 

else  menuerror; 
until  nenuloop  =  true 
end; 


cat  [ 
cat  [ 

cat  [ 
cat  [ 
cat  [ 
cat  [ 
cat  [ 
cat  [ 
cat  [ 


IS 

-  I? 

nt  +  l 


count 
count 
count 
count 
count 
count 
coun  t 
count 
count 

be; 
; 


=  'TANK 

=  'sSAD 

=  'INST 

=  'CBAI 

=  '    OP 

=  'TERR 

=  'VEH 

=  'FORT 

=  '^ISC 


procedure   DB class? 

var      temp    :    strin^[2j; 

begin 

temp  :  =    ' ; 

repeat 
clear; 
lines(l)  ; 

getflle( 'classmenu.text'); 
writeln('  5. '.return); 

lines(2) ; 
select; 
readf  en  ) ; 

If  en  in  cnarr.enu  tnen 
begin 

if  eoin(inT)ut)  tnen  readln; 

if  en  in  [v5 ' ,  'Q ' ,  'q  ' ,  'R' ,  'r' J  tnen  exi t (DBclass ) 
else  if  en  =  '?'  tnen 
begi  n 
clear; 
getf ile( 'class. text') ; 


Z9 


space  bar; 
end. 
else  5 e s* i n 

searcner 


=  r? 


left  :=  left  -  i; 
rount  :=  count  +  1J 
case  en  of 


'1' 

:  iniex 

:=   A'J 

'■d' 

:  index 

:  =  'B'j 

'3' 

:  index 

•=  'r ' ; 

r    ' 

#T\  '  • 

i 

:  incex 

:=   E  ; 

'5' 

:  index 

:=  'E'j 

end; 

case  : 

Lndex  of 

'A' 

t  temp  : 

=  '  a'; 

'B' 

:  temp  : 

'   ,<  /  . 

=    £  » 

'C' 

:  t  e  T.  p 

=  '  C'i 

T' 

:  temp 

:=  '  D'i 

'E' 

:  temp  : 

=  '  E'; 

end  ; 

cat  [count]    :=   cone at ( 'Class '  ,  temp) » 

searendata  case; 
exit  (EBclass  )5 
end 


end 

else  nenuerrcr; 

unt 

end; 


menuiooo  =  true; 


procedure  DBSAassgn; 


beein 

repe 

clea 

line 

getf 

writ 

line 

sele 

read 

if  c 

begi 

if 

if 

el 


el 


at 
r; 
s(2); 

ile (  'samemu. text ' ) ; 

eln ( '  R. ' , re  turn) ; 

s(i); 

ct; 
(en); 

n  in  sharmenu  tnen 
n 
eoln(input)  tnen  readin; 

en  in  I  R'.'r','*', 'q']  tnen  exi t (DBSAass?n ) 
se  if  en  =  '?'  tnen 
begin 
clear; 

getf ile(  'sa. text ') ; 
spacebar; 
end 
se  begin 

searcner  :=  2; 


3tf 


en 
el 
un 

end; 


left  :=  left  -  i; 

index  :=  en  J 

count  :=  count  -  1 
case  index  of 

'  1 '  :  cat  [count] 
'  2 '  :  cat  [count] 
'  3 '  :  catLcountJ 
4,5,6, 
'9  '  :  cat  [count] 
'9'  :  cat[eountj 
3  nd  »' 

searcncatatase ; 
exit  (TSSAassgn; ; 
end 
d 

se  menuerror; 
til  menulo  op  =  t rue ; 


--  'ART!' 
=  'NGF  ' 
=  'AIR  ' 
cat [count  J 

=  'othr'; 
=  '.none'; 


=  'CI 


1B'; 


procedure  DBpri  ; 

vir    te^p    •"    strin*?[3j; 


c  e  g  i  n 

repea  t 

clear; 

linesf 1 

ffetfile 

wri  teln 

linesd 

select; 

read( en 

if  en  i 

De£*i  n 

if  e 0 

if  en 

a  1  s  ° 

be? 

cie 

sret 

spa 

end 

p]  SP 

); 

( 'tetprimenu. text') ; 

('  5.', return); 

/ 1 


); 

n  cnarmenu 


1  C  r> 


lndnput^  tnen  readini 

in  [  5','R','r','0','u'J  tnen  exit'DSpri- 
if  en  =  '?'  tnen 
in 
ar; 

file(  'priority. text'); 
cebar; 


b  e  ?  i  n 

searcner  :=  ~i 
index  :=  en; 
left  :=  left  - 
cou  nt  :=  count 
case  index  of 


i; 
+  i; 


'1 
'2' 

'3' 

'4' 


temp 
temp 
temp 
temp 


'I  ' 
'II  ' 
'III' 
'IV  ' 
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end  J 

cat  [countj    :=   concat (  'Pri 
searchdataDase; 
exi  t (DBpri ) » 
eni 
eni 

else   Tienuerror; 
until    Tienuloop   =   true; 
end; 


,  temp) ; 


oro ceaure  DBacc ; 


begin 

repe 

clea 

line 

get!' 

writ 

line 

sele 

read 

if  c 

fcegi 

if 

if 

p  i 


el 


at 
r; 

s(2) 
ila( 
em( 

5(1) 

ct; 

(en) 

(1  in 

n 
eoin 
en  i 

se  if 

begin 
els 
get 
spa 

end 

se  be 


tgtaccmenu. text  ') ; 

5.  ', return) ; 


n   char menu    then 


(inDut'    tnen    readlni 

n    [    5    t   H    i    r    ,   q    ,    W   J    then   exit(Duacc 
en    =    '?'    tnen 

ar; 

file('tgtace.text'); 

ceoar; 


gin 

sea 
ini 
lef 

cou 

cas 


e  ni 
sea 

exi 


rcn 
e  x 
t    : 
nt 
e    i 
1' 
2' 
3' 

J 

rcn 

t  (i! 


er    :=    5; 

:=.chi 

=   left    -   i; 

:=   count    +   1 

ndex  or 

cat  [count] 
cat  [count] 
catlcountj 
cat  [count] 

database  ; 
Bacc); 


°  r  i 


end 

else 

unti 

end; 


"nenuerro  r  J 
1    menu  loop   =  true; 


ONFIRMEE 

* 

r 

ROBABLJj; 

* 

'F 

>"\  '  *    O     T    **"    T    "*1 

/ii  IjjLE 

x 

"J 

N KNOWN 

0 

3H 


pro ce lure  DEstatus; 

va  r  act  :  string  [B J  5 
loco  :  boolean; 


ss'in 

act 

nenu 

loop 

reoe 

:1 

li 

wr 

li 

wr 

li 

wr 

wr 

li 

wr 

pr 

re 

if 

be 


•ritel 
Titel 


un 
left 


car  :  = 
:=  fa 
at 

ear; 
nes(5) 
iteln( 
nes(l) 
i  teln( 
nes(l) 
1  %  e  1  n  ( 
i tein( 
nes(l) 
itein( 
o  .7i  p  t ; 
ad(cn) 
en  in 
gin 

if  not 
i  f  c  n 
begin 
sear 
sear 
loop 
act 
end; 
if  en 
begin 
sear 
sear 
loop 
act 
end; 
if  en 
Desin 

line 
n(' 

n  (  '  t  n  e 
line 
spac 
end ; 
end 

else  i 

else  7i 

til  io 

:=  le 


'  1  '  '  o '  '-,' 


lse; 


]; 


ENTER  TARGET  STATUS—ACTIVITY'); 

Tne  options  are:'); 

1 .   Active  ' } ; 
2  .   Inac live') » 

PLEAS3  ENTER  OPTION  NUMBER  AND  PRESS  RETURN';; 


ren near  tnen 

eoin(inout)  tnen  read in » 
=  'l '  tne  a 

cner  : =  5 ; 
enda ta base  J 

:=  true; 
:=  '  ACTIVE  '; 

=  'h'  tnen 

cner  : =  7 ; 
enda ta  oase ; 

:=  true; 
:=  'INACTIVE'; 

=  V   tnen 

5(1); 

An  Active  target  is  one  wnicn  is  found  in  tne  Target  list  or'1; 
list  of  targets.  An  inactive  target  is  in  tne  deadfile.'/J 

s  ( i )  ; 
eoar ; 


f    (en    in    ['0',  'q'J 
enue  rror; 
op  =    true; 
ft   -    li 


or    (  eomdnpu  t )  )    tnen   exit(JU2  status) 
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count  :=  count  +  l 
cat  [count]  : =  act  J 
em ; 


procedure  cat^e.nu; 


begin 
write 

wri  te 
lines 
write 
1  ines 
write 
write 
*ri  te 
write 
write 
*ri  te 
wri  te 
lines 
*ri  te 
if  am 
1  ines 
end  ; 


ln( 

in( 
(1) 
ln( 
(1) 
m( 
ln( 

m( 

la( 
ln( 
ln( 
ln( 

(l) 
ln( 
oun 
(I) 


lot 


s); 

Tae 


t  <■■ 


Categories  for  Special  Listing'); 


listing  can  contain   ,iei't,   iters  from  tne  ceicw  me 


*   v 


Target    type 

Classification 

Supporting    arm   assigned 

?rio  ri  ty 

Accuracy 

Status 

Process    information'); 


', icnecs) ; 
', Ccnecic) » 
' ,  S  r  a  e  c  k  ) ; 
',?caecx) ; 
' ,  A.  c  a  e  c  £ } * 
'♦statcaecc) ; 


Special    list    curreatly   contains    ',arount,'    targets, 
tnen    writem('  ?  l  e  a  s  e    start    anew    n 


orocenure   catproc; 

var      taxen    :    string[l5j; 


oegin 
talc 

rep 
i 

D 


en    :  = 

eat 

f   coun 

eerin 
clear 
lines 
wri  te 
wri  te 
lines 
space 
exit( 

nd; 

lear; 

ase    se 

1 


'Already  Selected'; 
t   >=  6    tnen 


(4); 

lnC 
laC 
(2); 

oari 
catproc ) ; 


No   more    "atea-ories    available   for    special    list 
Please    print    target    listing'); 


2 

3 
4 


arcner   of 

cnecK 
cases 

eneefc 
cneci 


taien ; 
t  a  s.e  n  ; 
tanen; 
taien ; 
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5    :    Acaecic    :  =   t3tcen; 
6,    7    :    statcnecK    :=    ta^eni 
en  a; 

c  a  t  m  e  n  u  J 
select; 
read( en  ) ; 

ir  en  in  charmenu  men 
Degi  n 

if  eoin(inpul)  tnen  reacm; 
case  en  of 
'l'  :  oegin 

if  Tcnec*  =  ta^en  tnen  teliusea  :=  true 
else  DStype; 
end ; 
2      :  segin 

if  CcnecK  =  tarcen  tnen  teiiusei  :=  true 
else  DEciassi 
end; 
'  &'    :  be*in 

ir  Scneci  =  tan:  en  tnen  teliusea  :=  true 
else  CESAassgn; 
pnd; 
'4'  :  De^in 

if  Pcnecrc  =  taien  tnen  teliusea  :=  true 
else  DBpri; 
end; 
'5'  :  oegin 

if  AchecK  =  taKen  tnen  teliusea  :=  true 
else  DHacc; 
end; 
be?in 

if  statcnecs  =  taKen  tnen  teliusea  :=  true 
else  UBstatus; 
end; 
P  ,  p  ,  R  ,  r  ,  Q  ,  q   :  exl t ( catproc )  ; 
7,8,9   :  menuerrcr; 


'5' 


'?' 


beein 

iines(l); 

w  r  i  t  e  1  n  ( ' 
lines(l); 
spacebar; 
eni; 


See  prior  menu  for  information'); 


end 

end 

else  menu error; 
if  teiiusei  tnen 

begin 
clear; 
lines (5) ; 
wri  tein( ' 
write ln(  ' 
w  r  i  t  e  1  n  (  ' 
writein(  ' 
lines (3) ; 


Category  nas  already  been  selected.  Please';*' 
choose  another  category  from  the  unused  items'); 
on  the  menu  listing.  To  start  a  new  listing-,'}; 
cnoose  option  7  to  return  to  tne  main  menu.'); 


CO 


teliused 
end; 

until  nenuloop 
end; 


=  false; 


=  true! 


procedure  scree nlist; 


var 


star 


c  ft  a  r  ; 


pribuff  :  string [3 J  » 
sabuf f  :  s trine[4] ; 

noldcar  :  cnar; 
pager  :  integer; 


procedure  Header; 

var   listing  :  string; 


begin 
1  i  s  t  i  n 

iines( 
wri  tel 
wri  tel 
wri  te( 
if  c o u 
for   i 

list 
wri  tel 
lines( 
wri  tei 
v»ri  tel 
end; 


Z7ZZIM   TARGET    LISTING')  ; 


s    :=  » 

11  ; 

n(' 

nC  '); 

'Categories  : ' )  ; 

n  t    >  5    t  n  e  n   count    :  =   6 » 

:  =   1    to   count    do 

ine    :=   concat ( listing , '    ',cat[ij}> 

n(  listing); 

i); 

n('TGT  NO    CL  Pfil   LOCATION    ALT   SAA5G   DESCRIPTION 


Degin{screeniist } 
clear; 
neader; 
p  r  i  D  u  f  f  :  = 

s a  buff  :  = 


pa^er 
for    i 
begin 
s  tar 


—   -  j 

=   2 


to    reccount    -    1    do 


if   database [ij  . flag   =  on    men 
begin 

noldcar    :=   databaselij.pri; 

case   noldcar    of 


'1 '  :  pribuff 

:=  'I   ' 

'2'  :  pribuff 

:=  'II  ' 

'3'  :  pribuff 

:=  'III' 

ob 


en 
no 
ca 


f  ( 
rit 
rit 
rit 


aat 
e  (d 
e(l 

eln 


1 
w 

1 
s 
em 


en 
na; 
ine 
Pit 

i  n  a 
pac 

» 


en 
a  tas 
a  ta  D 
3  tab 
'dat 
page 
If  p 
fce^i 
■  ii 

sp 

ci 
ii 
Da 

end; 

It 


s(i); 

einC 

s(i); 

ebar ; 


4       : 
dj 

id  car 
se  no 
'1'  : 
'2'    : 


-    ♦ 

'9'    :' 

a; 
e[ij . 

ase[i 
a  s  e  [  i 

abase 
r    :  = 
a^er 
n 

nes(  1 
aceba 
ear; 
nes(2 


on 


luff    :=    '17 


^-i  r\  w  Tl    '    m 


: =  d ata tase  [i  J  .sai 
Hear    of 

s  a  Duff    :=  'ART!'; 

sabuf f    :=  'NGT    ' ; 

s  a  buff    :=  'AIR    '; 

5', '5 ','7'  :    sabuff 

sa buff    :=  'OTHR'f 

sabuff    :=  'NONE'; 


stat  =  'l')  d:  (database  [i J  .stat  =  '^'v  tnen  star 
J. t  nu  ir, star,'  '.iatabcseLiJ.ciass,'  '.Dribuff,' 
j.loc,'  '.database LiJ .alt:4,'  '.sabuff,'  '); 
[ij  .desc); 

pager    +   i; 
=  22    tnen 

); 
r; 

); 

=  0; 


.MOTS: 


indicates    ta 


ii  « t 


oro  cedure  re  se  t 


begi 
te 
am 
ie 

CO 

se 
fi 
Tc 
Cc 

PC 

Ac 
Se 

St 

t'o 
fo 

end; 


n 

llu 
oun 
ft 
unt 
arc 
rst 
nee 
nee 
nee 
nee 
nee 
ate 
r  i 
dat 
r  i 
c 


se 
t 


=  false; 

£ ; 


=  0 


=  tr 


x 

K 
K 

ne 
a  d 
at 


u 

em 

em 

em 


C£ 
=  Z 

ase 
=  1 
[ij 


[i 


£  > 
e; 
pt 
ot 
pt 
pt 
pt 
e 
o 
J  . 

0 


ys  tring 
ystrins 

ystring 

ystring 

yst  ring-; 

mpty string; 

reccount  -  1  do 

f  i  a  s    :  -  off; 

5  do 

emptys  t ring; 


proceaure  aueryproc; 


begi 

~o 
re 
cl 
li 
wr 
wr 
li 
wr 

*  r 
wr 
wr 
wr 
wr 
li 
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re 

it' 
ce 


n 

unt 
peat 
ear; 
nes  ( 
itel 
i  tel 
nes  ( 
i  tei 
nes  ( 
i  tel 
i  tel 
i  tel 
itel 
i  tel 
nes  ( 
lect 
ad  ( c 

en 
?in 
ire 
case 
'l 


-  C  J 


2)5 
n(' 

r. 'lets 

2); 
a(' 

i) 

n( 
a(' 
n(' 
n(' 

n(' 

i); 


;  > 


); 


Tne  options  are 


» 


1. 

For.m   a    special    target    listing    il 

2. 

Continue    tc    process')? 

Write   tne    special    list    tc    tne    screen 

'    '±. 

Information   as  cut    tnis    procedure' ;> 

K 

' .return  N  ; 

,  1 


a); 

in  L  l  »  2  ,  o  ,  4  f  5 

o  in  (input)    tnen   realm » 
en    of 

:    be. 


tnen 


en 

2  :    ca 

3  :    sc 
*±    »    • 


si 

re 
ca 
d! 

tp 
re 


5 


'R' 


end 
end 

else   Tienuerr 
until   -^enulo 
end  i 


n 

set; 
t proc ; 

roc  ; 
enlist ; 
beffi  n 

ciecr; 

getf  ils  (  'uuer 

spacebar; 
end; 

:    exit (query) 


or; 

cd   =   true ; 


y  i  n  f  c  .  t  e  x  t 


begin    {query} 

reccoun  t    : =  0 ; 

emptystring  := 

searcner    :=  0 > 


» 


cnariienu    :  -    L    1    t    2    ,    3    ,    4    »    b    ,    o    ,    7    ,    e    ,    3    ,    R    ,    r    ,    3    ,    q    ,    F 
getdata  base; 
reset; 
queryproc ; 


^S 


eni 


( - i,  i\  l      3  U  iH  X 
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(* 


3DA.TSXT 


•) 


segment  proceiure  largetmoa; 


var 


stall    : 
stai2    : 
ttypebuf 
pribuf    : 

sabuf    : 
eccDuf    : 


string1 !  b\  ; 

string  [3J i 
:    string[4j 
strin^lvij  ; 

string  [14J  i 
stringl^j  ; 


duplicate,    t'etrncacit,    outprocess,    first    :    roclean; 


procedure  f etcntgt (grid    :    inieger);    forward; 

procedure  readin;    forward; 

procedure  caectBT3(var   stmg 

procedure  process;    forward; 

procedure  cuts tring (st rc?s i ze 

procedure  putinf iie;    forward ; 


string;    var    cnec£:cooiednv;    forward; 
i  n'teeer ) ;    forward  ; 


segment  procedure  newBDA; 


procedure  rTSofBCAJ 


igin 

cu  r 
wni 

b 


rea 

le 

eg  i 
cl 
ii 
wr 
pr 
re 
cn 
if 
if 


en 
nd; 


lei . 

not 

n 

ear; 

nes( 

itel 

ompt 

adin 

eclcD 
aui 
nei 

begi 
fi 
ii 
ge 
li 
re 

end; 

if 

curr 

d; 


BDA[BDAcounierJ  .DTGsurv 
finisned  do 


6)5 


1  or  \   S 

t  th 

pme 
n 
a  i  s  h 

nesf 
tfil 
nes( 
turn 


ENTER    1>TG    TARGET    WAS    A1 


tr  ,  ojc  i ; 

en   exit  (DTSofBDA) ; 
or   not    okc   men 

e  d    : =   false; 

l); 

e(  'dtgof bda . text  ') ; 

i); 

tar; 


.c 


•i  is  and  1  leiie 


(fig  =  2)  and  finished   men 
entgt  .BCA  [BEAcounterJ  .TTSsurv 


=  sir; 


4:0 


procedure  firineunit; 


egi  n 

cur 

wni 

be 

l 

w 

P 
r 
i 
b 


re 

le 

?i 

ia 
ri 
ro 
ea 

f 
eg 

r 
i 

g 

l 

r 

nd 

is 

D 


nt 

n 

Q 

es 

te 
mp 
di 
ne 
in 
ia 
in 
et 
in 
et 


*t . 3  D  A  1 EDAcounterJ 
ot  finisned  do 


fire  u n i  t 


(2); 
laC 

t; 

n; 
ipne 


ENTER  FIRING  UNIT. 


do  not  exceed 


cna  racters 


taen 


isned  : -   false? 
es(l); 

file('funitl.text'); 
es(i); 

urn  bar? 


c 
end 

nd ; 


is 

is 
ur 


e  if 

egin 

lin 

*et 

iin 
fin 

cur 
ret 
nd 

e  if 
e  if 
rent 


lenetft(str)    >   5    t  ft  e  n 

es(l); 

f ile(  "funit2. text ' ) ; 

es(i); 

isned    :=   false; 
rent?t .f laff [nj    :=   on; 
urn  tar; 

quit    tnen    exit  (  f  irine-uni  t ) 
(fig   =   2)    and   finisned      tne: 

gt .  3I3A[BDAccunterJ  .fireunit 


=    st:: 


procedure    rounds; 


eein 
cur 
wni 
b 
l 
w 
p 
r 

i 
b 


ren  tgt 
le   not 
e<?in 
i  q  e  s  ( 2 

ri  teln 

ro-Tipt ; 

eadin; 

f  Help 

eeia 
finis 
1  ines 
eetf  i 
lines 
re  tur 

nd 

lse  it- 
begin 


£TA[fi:AcounterJ  .ntrnds  :=  ' 
finisned  io 


(' 


ENTER    M0K3J2R    AND   TT?E    CF    ROUNCS    FIRED'); 


"ne    tnen 

ned    :=   false; 

(i); 

le(  'rounds  .text ' ) ; 
nfcar; 
lengtn(str)    •    12    tnen 
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eni; 


lines (l) ; 

getfile( 'round si. text ') ; 

lines (1) ; 

finished    :=   false* 

currentgt.f lag [nj     :=  on; 

return  tar; 
end 

else  if  quit  tnen  exit (rounds) 
else  if  (fig  =  2)  am  finisned  tnen 
currentet .3DA[EDAcounter] .ntrnds  :=  s:r; 
end; 


procedure  iamagemenu(  param  :  integer'; 
var   Kind  :  s  t  ri  ng  [3J  ; 

begin 

if   parar    =   l    tnen   icini    :=    'REPORTED' 

else  Kind  :=  'ASSESSED'; 

clear; 

lines(5); 

writelnC      ENTER  DAMAGE  ',fcind)J 

lines (1); 

self ile( 'damage men. text ' ) J 

lines(2) ; 
end; 


procedure   darrasrept; 

begin 

currentgt .3DA[3DAcounterJ .damrep  :=  '3'; 

repeat 

da-nagenenu  (1 )  »" 

select; 

read (en) ; 

if  en  in  ['l'. .  '3'J  tnen 

begin 

if  eo In (input)  tnen  re a  11 n; 

finisned  :=  true; 

currentgt .£DA[2DAcountJ .lamrep  :=  enj 
end 

else  if  eoln(input)  tnen  exi t(damaerept ) 
else  if  en  in  ['Q','n'J  tnen 
begin 

u.uit  :=  true; 

exi  t(  damagrept ) ; 
end 

else  if  en  =  '?'  tnen 
begin 

lines(l) ; 


4=2 


e-eti'i  ie(  'damrep.text ') ; 

lines  (i); 
returnbar; 
end 
else  menuerror; 
until  finisn°i  =  true? 
end; 


proce!ure  danagassu; 


be^in 

currentet  .BI)A[£DAcounterJ  .damass    :=    '^'; 
repeat 

darnae-errenu  (2 )  ; 

select; 

read( en  ) ; 

if    ch    in    I  '1 ' .  .  '3  'J    then 

begin 

if   eoln( input)    tnen   readin; 
finished    :=   true; 

currentgt .  J>CA  [BCAcount  j  .dajiass    :=   en; 
end 

else    if    eoln(input)    then    exi t ( damagassd  ) 
else   if    en   in    ['0','q'J    then 
begin 

qui  t    :=    true ; 
exi  t  ( la.Tiasrassu) ; 
end 

else    if    ch   =    '?'    then 
beein 

iines(l) ; 

ffetf i Is ( 'danass.text',; 
lines (1)  ; 
returnbar; 
end 
else  nenuerror; 
until  finished  =  true; 
end; 


procedure   UDArenartcs; 
var      x    :    integer; 

besin 

currsntgt  .-BDA[:BDAcounter]  .BDAtext  :  =  nostring; 

while  not  finished  do 

besin 

clear; 

lines(e); 

writelnt'     ENTER  EDA. ...do  not  exceed  one  line'); 

prompt; 

readin; 
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if  nelpme  tnen 
beein 

finisned  :=  false; 
lines(l); 

eetfilet 'bdarem.text ' ) » 
lines(l); 
return  bar; 
end; 

if  quit  tnen  exit ( bDAremarss  ) ; 
if   (fig  =  2)    and  finisned  tnen 
be^in 

buffer    : = 
cuts  tring(4i?) ; 

current?! .EDA| BDAcount] . Br A  text 
end; 
end; 
end; 


=  str 


procedure  BDAinfo; 


begin 
clea 
line 
writ 
line 
writ 
writ 
line 
writ 
prom 
read 
if  c 
be 


BATTLE  DAMAGE  ASSESSMENT'); 

For  information  on  adding  a  target  surveillance 
to  tne  target  file,  type  a  ?.'}» 


en 
ena; 


r; 

s(2); 

elnC 

s(2); 
einC 
elnC 

s(3)t 

elnC 

pt; 

(en); 

a  = 

sin 

clear; 

lines(2)  ; 

eetfile( 'bdainfo.text'/  ; 

lines (3> ; 

space  car; 

clear; 

dj 


To  continue,  press  tne  RETURN  Jcey 


e*  ') 


v   tnen 


beffin  {newBDA} 
if  not  current 
begin 

BDAinro ; 

fetcntgt( 1 ) ; 


tnen 
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it'   auit    tnen   exit (newBDA ) J 
i    :=   i; 

wniie    ( currentst .f la*Ll6   +   ij    =   off) 
Desin. 

i    :=   i    *   1 1 
if    i    =  4    tnen 
beeia 
i    :=   IJ 

curreatfft.t'laeLlS    +    iJ     ;=    en; 
end; 
enc; 
BDAcounter    :=    i» 
n    :=    15    «■    i ; 
end; 

endEDA  :=  false? 
wniie  not  end-bDA  ao 
begin 

for  ii  :=  1  to  o  io 
oegin 

finisaea  :=  false; 
case  ii  or 


ao 


1 
2 

& 

R 

b 


ena; 


DTGofBDAf 
firingunit » 

rounds ; 
damagrep t » 
damagassd ; 
Deein 

BDAremarss ; 

ena3DA  :=  true; 
end  ; 


end; 
nd; 

f  current  tnea  exi t (newBEA) 
lse  begin 

witn  currentert  do 
begin 

if  stat  =  '  2 '  tnen  stat  :=  '  1 
oica  if  <^r^r  =.  ' c '  tnen  stat 


•x 


ilse    if   stat    - 
else    if   stat    = 

end; 
with   currentCT   do 

besrin 

if  stat  =  '2'  tnen 
else  if  stat  =  '■*' 
else  if  stat  =  ' 6 ' 

end ; 
putinfile ; 


tnen  stat 


stat  : =  '  1 
tnen  stat 
tnen  stat 


end 


4:0 


(* 


TSTFRCCS .TEXT 


*) 


procedure  nandmsgi 

begin 

lines(l); 

getf ile(  'mandmsg.texT;  )  i 

iines(l) ; 
spacebar; 
end; 


proceiure  readin; 
var   len  :  integer; 


begin 
.ielprr 
readl 
ien  : 
if  le 
else 
el  se 
else 
case 
V    : 


3  : 

e 
end 


n(s 

=  i 
n  = 
if 

if 

fig 
fie 

be 

if 
el 
en 
fie 
be 


en 
qu 

nd 

> 


=  false; 
tr) ; 
engtn( str)  >" 

fc?  tnen  fig,:=  z 
strfij  =  '?'  men  tie 
(len  =  1)  and  (str[lj 

:=  2; 

of 
gi  n 

■na  nda  toryite-n    tnen   mandmsg 
se    finisned    : =    true; 
d; 

lpne    :=   true; 
?in 

currentgt  .f  iag[nj  :=  off; 
finisned  :=  true; 

i; 

it  :=  true; 


in  ['Q'.VJ) 


tnen 


ip 


I  n  e  1  p  } 
2  {quit} 

J  continu 


procedure  ccec£num( var  strng 

var   i, i    :    i nte^er  » 

be^in 

checlc    :=   true; 


string    ;    var   cneck: 


boolean; ; 
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x    :=   lengtn(strng) ; 
if   x   =   k?   tnen 
tegi  n 

fetcnDacs    :=   true; 
exi  t(  ciiecKnum ) ; 
end; 
if   x   O   5    men 
b  e  e  i  n 

cnec*    :=   false; 
exi  t( cnecinum  )  ♦ 
end; 

for   i    :=   1    to    2   do 

if   not    (strng[ij    in    ['A'..'Z'J)    men 
Deein 

cnect    :=   false; 

«rriteln('  Use    upper   case    letters    for    target    designator'); 

exi  t( cnectnum)  ; 
end; 
fori    : =   3    t  o   o   do 

if   not    (strnsli]    in    l'/'..'y'J)    tnen   ciiecx    :=    false; 
end; 


procedure    cnecfcdigit    (var   s trng: s tring;    var    cnecX    :    Dcolear;    rng    :    integer,; 
var      i,    x    :    integer; 

Begin 

cnecK    :=    true; 
x    :=   lengtn(  st  rntr) ; 
if    x  =   tf    tnen 
be?in 

fetcQDacsc    :=   true; 
exi t(cnecfcdigit) ; 
end; 
if    x   <>   rng   tnen 
begin 

cnecK:    :=   false; 
exi  t (cnecKdigi t ) ; 
end ; 
for   i    :=   1    to    rn?   lo 

if   not    (strng[ij    in    [*0'..'y'J)    tnen   cnecK    :-   false; 
end; 


procedure   cutstrin?    ; 

(strngsize    :    integer)    removed   for   f*d   dec        ^:) 
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var    cutter  :  integer; 

beffin 

if    lengtn(str)    >    strn^size   men 
cegin 

for   cutter    :=   1    to    strnersize   do 
out' fer[cut  terj     :=   str[cutterj» 
str    :=    Duffer; 
end; 
end? 


Drocedure  cnecsDTJ  ; 


(*     (var  strng  :  string;  var  cnecs  :  cooiean)  removed  for 

var    i  :  inteeer; 

De^in 

cneci<:  :=  true; 

if  lenetn(str)  =  <    tnen  exi t(cnecKDTG) ; 

if  lengtn(strng)  O  ?   tnen 

begin 

cnecu:  :=  false; 

exi  t ( cneciDT" 1  ; 
end; 
for  i  :=  1  to  o  io 

if   not(strng[iJ    in    ['K'..'9'J)    tnen 

be^in 

cnecK  :=  false; 
exi  t  (caectDTG- ) ; 

end; 
if  not  (strn?[7j  in  |/a'..'Z'J)  and  not  (strng[7J  in  L'a'. 

cnecs  :=  false; 
end; 

(* 


:  w  d  i  e  c 


z  J  / 


*) 


4C 


Pi?"  ;T  "" T 

^.»r.ij-/i   ililii.l 


ro  ceaure   vern ynutn ; 


•  i :. 

i  o  r    1    :  -    -    to    aurrcert^t    i o 
if    catnap  [ij     =   st  r    en  en 

■  1 r 

lines (2)  i 

«::;=.  . 

i  i  n  e  s  ( l    ; 

*  r i  i  s  1  n  (  ' 

w  r  i  t  e  i  n  (  ' 

v  r  i  t  e  i :.  v  ' 

lines  (1)  I 

luzli caz?    :  -    i rue; 
i  o  a  e    :  =    I  r  u  e  i 
eni; 
eni; 


i  a  r  g  e  t    r.  u  "n  c  £  r    -  - .     - 1  ^ 

Flease   use    3    li  r  rerent    t 
t  .'.i 5    au.n  cer,    ■'    .      us i   a 
c  ^  1 1  o  r 


-     .  -        1  .  -         1/  3  a.  ="  C 


. 


:   •    £ 


..  C  It 


-    n  — 


crccelure    t 


st  auTi  > 


gin 

tf n i 1 e   not    f  i  n  i  s  a  e  i    i c 

t  °  f  i  a 


*  r  i  t  e  1  a  (  ' 
pronpt ; 


exit    Udrtaaf 
c  a  ec£auffi(str,o£); 
if   a  e  1  p  m  e    or    net    c£    t a e a 
t  q  s  i  a 

f::is:  =  :  :  =  false; 

liaes(l); 

eetf  lie  (  't  r.u.-r.  .texL  ' ) » 

lines (1) i 

returncar; 


i  i  \  a.  C  iT   «.  r.  . .  u  —  -   . «  w   J 1 . .   /  » 


e  u  u  y 

if  (fis 


a  l  s  a  e  c  ;  a  ■ 


iuplicate  :=  false} 

■;  e  r  l :'  y  r  u  ~  J 
if  iu plicate  inen 
b  e  e  i  a 

4 'j  it  i=  true? 

~  A  1  L  \  i,  g  U  il u Hi  >  t 


curraatsrt.'CuU.n'    •  -   s  t  r  > 

c  u  r  r  ;  Ti  i/  »  .  i  » r.  t .  i    • =    5  &  a  > 


3  n  i ; 


proceiura    t a 1 1 o c  ; 


=  -- 1 


lai.t,:      •  —     ri 

w  a  i  I  a    a  o  t    r  i  a  i  s  a  a 

1    ic 

^  e  g  l  n 

ciedr; 

liaebioi ; 

*/  r  it  e  i  a  (  ' 

u  :\  i  JL  (l 

I  n.  E  a  i 

1 

prompt; 

r  a  a  a  i  a ; 

cnsciaigit(st 

r ,  o  £ .  r  ei 

age )  i 

i  f    q,  u  i  I    I  2  e  c 

exi  t  ( tg 

tioc) 

» 

if    ti e i p ti e    cr 

ao  t    Q£ 

taen 

d  e  g  l  n 

: inisaea 

:  =    t'diS 

£  » 

1  i  a  e  is  (  i )  i 

;,  w    L  I    i   1   C    ^ 

t  5  t  x  0  C  • 

t  6  X  t 

)  i 

i  i  a  e  s  ( l )  ; 

returnba  r 

j 

ea  it 

if    (fig    =   d 

^    d  r.  i    f 

i  a  i  s  R 

p  - 

"  1    i 

-  u  r .  *.  a  vi 

c"  Z    »   j.  0  w 

i    -        3    I 

r  i 

c  u  r  r  e  c  t 

»  1  .Ui 

I =     SI 

r » 

ead; 

eadj 

aaa; 

-.5 


=    llffl  t: 


projc.uri    t 5 t a e b c 5 

d  e  g  i  n 

*  a  i  1  s    a  o  t    fiaistad   do 
ca^ia 


i  i  a  e  s  v  b J > 

«ritela( '  iNTilR 

p  r  o  .Ti  p  t  > 

r  e  a  1  i  a ; 

if    juiL    t n e n    2xit(t£tiai»c); 

if   aeiprne    taea 


W   J_   >.    O  *l 


PTI 


i  wk  U        .i^O 


Be  a    ,...2    i. 


3£ 


r'  s  %  :  a 

ifinisnea    :  =   r  a  1  s  2  i 

1 1  ii  e  5  ( 1 )  J 

ge  t fi i e (  'igtiesc.texi  ' .  ; 

i  i  n  e  s  ( l )  i 

r  £  t  u  r  a  o  a  r ; 
e  n  a ; 

it    (lis   =   is)    and    rinisnel    tnea 
d  £  tr  i  n 

d  u  f  f  e  r    :  = 

c  l  t  b  C  r  i c  .--  (  t  '6  )  '■> 

curreatgt.assc    : =   s  t  r  i 

&  a  f  t  £  r    :  = 

suts  c  ri  p.s  ( '<L\L  )  i 

currenL.r.weSv    :  =    - :  r  >' 
enaj 
em  ; 


I o c a i u r e    tJ-tcia:>s 


gin 

clear; 

ge  t  f  i  i  e  (  ' c i  a s  s  r.e  a u .  t  e  x  t ' ) » 
I  i  n  a  s  ( 1 )  J 
s  e  i  e  c  t ; 
is  a  a  ( c  a ) } 

i  r    -  a    i  a   r  e  a  u  c  a  r    t  r.  a  a 
oe^in 

i :'   a  c  i  a    (  input)    t  a  a  n   r  a  a ; 
curreai?L.txa?[.;j     :=    o: 
rinisaea    : =   z rue ; 
c  a  s  e    c  a   c  r 
'l  '    :    oeein 

curreatgt .ciab a 
currsn W!I  .ciais 
end ; 
<;      :    c  e  e- 1  a 

currentgi;  . c  i a  s  s 
currsntWT  .c.d^ 
eadi 
o      :    r  a  5 1  n 

currsntet  .class 
cur  rent, .  .  cias  s 


la; 

1 ; 


A      > 

1  ; 


c    ; 
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r  f 

3 


currents^ . c i a b a 
current* I  . c  1  & s  s 

:     d  9  fir  i  n 

cur  rerj .  t£  t .c.-s; 
cur  rental  .Ci^s 


C  li  wi  » 

'        '        '       ' 

» 


:      C  3  £  1  ] 

current>t.fiag[rj 
f i n i s a e  1    :  -    raise; 
&  nue  r  ro  r ; 
e  a  i  > 


:      Gr^i 


U  x  £  a  l  > 

1 1  n  e  s  \  1 J  t 

^^»:li^  'class. text'/i 
i  i  a  e  s  ( 1 )  »' 
spaceoar ; 

curreatsrt.fiaeLnj     :  -   c  u ; 
:'  i  a  i  s  a  s  a    :  =   :;.s=; 
saa 

-  n  a 

r^sf    l :    en    l  c    l    -     »    ^    J    Caen 
c  9  a*  i  a 

4  u  i t    i~   :ruci 

£ X i  l{  tgtCldSS  ] » 

e  a : 
else   i:    ( eoia(  input ) )    taen   Tiaadmsg 
eise   menuerror; 
m til    tinisnel   =   true} 
:aa; 


proceaure    tgtpri; 


ce^ia 
repeat 
clear; 
1  i  n  e  s  ( 4: ) ; 

ere t  f  i  1  e  ( ' tgt  pr i me nu .  t e x  t ' )  ; 
i  i  a  e  s  ( 1 ) ; 
seiec  t ; 
r  e  a  a  (  c  a  ) ; 

if   en   in   Tieaucar    caen 
D  2  ?  i  n 

if   eoin    (input)    taen    reaain; 

i :'    en    l  n    ['l'..'4'J    men 

d  e  e  i  n 

currents t .i la g [nj     :  =   off  J 


zz 


if 


rinisneo.    :=   true ; 
currents t  .pri    :=   en  J 
curreutwT.pri    : =  en; 
ead. ; 
c  a   =    '  v      t  a  s  n 
d  e  e  i  n 
clear; 
llnes(l) ; 

eetfils( 'nriority. text '/  > 
linesf3) ; 
soaceDar; 


i  *• 


en  la  ['5', 


t  a  e  a  n  e  a  u  e  r  r  < 


;  e  g  i  a 
iui  t 

=  t ;  r.  f 


I   •   »   4 


cl 

a  1 


if  (eclndnput ) )  taea  maad.ns^ 


s  e  n  ?  n  u  2  r  r  c  r ; 
til  fin  i c  r.  5  i  = 


« .  ^  =  » 


procedure  t?tstatus; 

v a  r  loop  :  d  o  o  l  e  a  a  > 
c.cie    :  integer; 


procedure  active; 


Degia 

loop  :=  f a 1 s i 

repea  t 
ciear; 
i  i  n  e  s  ( 5 ) ; 
*  r  i  t  e  i  a  (  ' 
l  i  n  e  s  ( 1 ) ; 
v  r  i  t  e  i  n  ( 
i  i  a  e  s  ( l  j  ; 
« ri tela ( 
w  r  i  t  e  1  n  ( 
1  i  a  e  s  ( l )  ; 
«  r  i  t  e  i  a  {  ' 


l  i\l  j.  £l  It        1  fl.  it  VJ  i)  A       0  1  A.  i  U  i Rlr  i  i  I   i  i  I         /    > 

Ice    options    are:'}; 

i .      Active'); 
i. .      Iaactive'}; 


rliASi    SNTiiH    OPTION 
p  r  o  t,  p  t ; 
r  e  a  d  ( c  a )  ; 

i :'    ca   in    neaucar    taea 
Begin 

i :    cot    eoin(injjUt)    tee:;    r e a  i±r. ; 

if    en   =    ' 1 '    c n e n 

Degia 

c o a e    ' —  of 


it  O'i  '.£  ill     A.»  1 


:;:     xt i  i u n. N     y  > 


j  3 


i 

• 

=    t 

rue  i 

_  q  : ; 

if    c  a 

- 

t  q  e  n 

t  e  4?  i  a 
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: 
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1  C  0  p 

'. 

=          t 
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:  :'    en 

= 
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t  n  =  r. 

t  e  g  i  a 

1  i  r.; 
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\ 
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*rit  =  ia\  in    ^-ii':-    l  &  r  5  2 t    is    ; :'.  =    *  a  1  e  a    1  s    1 

*  r  1 1  r  1  a  \    t  a  e    i  1  s  t    c  1     tar^s  ts.    .-*...    1  ad c  t  1  v e    z a i g; e 

i  i  a  2  a  '  i  '  ; 

5pdC5bdri 


r  a  - ; 

it     '  -    ia    [    3    ,    -    , 
end 

5:ss    i :    c  a    1  a    [    «    .    J    j     t  .1  e  a 
n  e  4?  i  a 

j'a  v    j  —   t  t  a  e  j 


t         »     •    •    r    j 


*  j    1 ..    i> ..  ■ 


r.iu— .  i  .  .   > 


rise   if    (eoln (input)]    men 
else   Tienuerror i 
until    loop    -    t  rue  j 


.  a  an  n  s  ? 


procedure   listed? 


e :?  1 


>eat 


clear; 

lines (S) 

*ritein('  fc  N  T  2  R 

lines(l) 

w  r  i  t  e  1  n  ( 

l  i  n  e  s  { 1 ) 

«friteln('  1 . 

*  r  i  t  e  1  n  ( 

1  i  q  e  s  ( 1  j 

select; 

real ( en] 

i  f    en    i  a    Tie  nu c a r    t  a e  a 

d  e  2  i  n 


cr  i  4.      J  i.  .A  - 


•  •         ~.  X  O  a    j-  A/ 


*  n  e    0 p 1 1 0 a b    are:    ) ; 


laraet   List    , ; 

li  s  1    Oa     rf - r  =  c  t, 3 


/  » 


0 1 n ( i  npu t )    z nen    readl a ; 
a    =    'lv    tnen 


If  r 

if  ca 

c  e  "  i  a 

wOie  : =  coae  *  3 i 
icco  : =  true; 

e  n  :  ; 

1 :'  c  a  =  '  > '  t  a  e  n 

cegin 

coi=  :  =  2 ole  +  o> 


loop    : =    c rue  > 
end  ; 

it    c a    -      V       t  a  a :. 
d  s  e  i  n 

1 1  a  e  s  ( <d )  i 
itrim  '.'r.e    larger    List    r  e  :'e  r  s    c o    1 .-. - 
itemC'aeanjuarters.    1 1    a    : a r * 
i t e i a (  is   on   us    i 

lines(l) ; 
spacebar; 
end; 


.r.;rt    Li 


^    * 


01      C 


.  e    nil 
List 


st    ; ;  e 
e  n   i  t '  / » 


t  a  r  a'  e  t  s  .    /  > 


'  r  '  <» 

t  —  »  » 


tnen      =  ..-.':     . 


*    '     / 


r  1  S  e     II      2  n     1 L      [     "      »      -•      J       !•-•-'- 

quit    :  -    true! 
exit ( listed); 
ena 
en?    it    (eom(input ) ;    tnen   janamss 
eise   Tienuerror; 
until    loop   -    true ; 
e  .\  a ; 


ine    options   are :  '  /  J 

i  .      Attached ') ; 

<l  •   i^i  c  l  attached  /> 


procedure  attached; 

c  e  g  i  n 

l  o  o  p  :=  raise; 

repeat 

Ci  e a  r  ; 

lines ( b) ; 

*  r  i  t  e  i  n  { 
i  i  n  e  s  ( 1 )  \r 

*  r  i  c  e  1  n  (  ' 
1 1  n  e  s  ( 1 )  > 
w  r  i  t  e  i  r.  ( 
w  r  i  t  e  i  n  ( 
l  i  n  e  s  ( 1 )  > 
select; 
read (en J ; 

ii  en  in  nenucar  tnen 
Degin 

i  i  e ol n ( i  npu i )    tnen  r earn n ; 

ii  on  -  'i'  taen 

ce^in 

ccae  :-  co:e  +  7; 

loop  : =  true; 
end; 

if  eti    =  ''d'    tnen 
Degin 

coie    : =   c  one    +   a ; 

iCDp    : =    true; 


X  i\\3      41  a . !  , C 


x  it  U  Xi.       ,    > 


i  f    c  a 
Deein 


i  i  n  e  b  \  2  t  i 
*ritein('ittac;s:ea    carets    ir=    tnose   attac^ea    ;./    supporting    arris'); 
*ritein('for    «.-. ica    trie  re    is    -    surveillance    of    lajia^e    reponea.';; 

spacebar; 
-  n  i  J 

ii    cn   in    l  3    f   4    ,   o    f    o   t    a    ,    r   J    tnen   menuerrorj 
•.  na 

else    if    en    in    I'* '.'4 'J     men 
Cr:  i  n 

J  LL  i  t      1  =     t  T  I'  r  ) 

exitvattactteayj 

=  q  a 
else    if    (eoln(mput))    t  n  en     i a n a m s g 
else    nenusrror; 
un  til    -oop    =    true » 
e  n  a ; 


= a i  n  ii'LiiiiLb; 

repeat 
x  ines  >'  2) ; 
a  c  t  i  /  -  ; 

i :    quit    men   exit(t£tstatus)J 
i  i  s  tea; 

ii    suit    t n e n   •oxiL\i=.'CoC3.*-4.j.> 
s  t  tactcea ; 

if   4  u  *  t    t :.  -  r.    exitttststatus    »' 
rinisnel    :  -    true; 
^^■2-    Jo>ie    oi 
1 1    :    c  a    :  =    '  1  ' » 
I  2    :    c  n    :  =      c    ', 

L  c    :    c  a    :  =     4    ; 
22,    2i    :    oeffin 

i  i  n  e  s  ( 2 ) ; 
w  r  i  t  e  l  n  ( 
spaceDar ; 
f inisaea 
ena; 

,        .  '  U  '   • 

L     .  —         o      > 

2?    :    ~a    : =      o    > 


i  c :». dilation    uoi    loss 
=   raise; 


cie...pieasc    reenter    s  t  a 


25  : 
2?  : 
end; 


an t i  i    f i n i's nel  > 

if   on   in    ['l'»'o','s'J    tnen   a  urn  ocn.ee  a 
currentgt.flagtnj     : =   o  f  f » 
:urrentsrt  .5 tax    :=   :r. ; 
current^!. stat    : -  en; 
ma; 


n umccneci    -    * i 


3  0 


roceiure    i < 1 1 y p e > 

a i         n  e  n  un  u m    :    n: v  a  j. ue  i 

•     '  e  '   .  ,   '  r  r  f  r  ' 

le  r.  u n  u      i =        i    ,    c    t    o    ,    —    , 
r  2  p  e  a  i 

Ci:ari 

1 1  n  e  s  ( 2 ) ; 

^2t:ix5v  '  i  j  oe  menu  .  t  sx  t  '  /  > 
i  i  a  e  s  ( 1 )  i 
s  e  l  e  c  i ; 

r  s  a  a  ( c  n  J  ; 

ii    en    in    Tie  Qunu;n    men 

C  r  r*  i  n 

it    eoln(input)    men    realm; 

:  imsr.ci    :  -    t  r  u  £  J 
e  n  4 

Jlie   it    en    in    I '  w  ' , '  n  '  J    t  ft  e n 
c  e  2 1  n 

4  a  i  i    : =    true; 

ex:  i  (  :.^ctyp=  / ; 
end. 

rise    if    (  e c  i  r  (  i n £ t : >: )    g n e n 
c  e  y  i  n 

I  i  n  e  s  ( s ) ; 
Ti.-.arbJi 

ena 

else   if    en    =    ' V '    men 

d  e  9  i  n 

I I  n  e  s  ( 1 )  > 

£e  tf i le ( ' t^ t  ty ps . tex  t ' ) ; 
1  i  a  e  5  { l ) » 
re  turn  car > 
end 

else   jienuerror; 
until    f  i  n  i  s  n  e  a ; 
currentgt. ity pe    :=    cn> 
curreatffi.fla?laj    : -   oft; 


f         —  » 


»  ~  t  =>         J      f 


} roceiure    t  *  t  a  1 1 J 

v  a  r    x ,    ;/    :    i  n  t  e  g  e  r ; 


currents. alt    :=    no  stria?; 
current*!. dit    :  =   no  s  t  r  i  n  g  ; 

*  n  i  i  e    net    :'  i  n  i  s  n  e  a    i  c 
t  e  e  i  n 


■  1 2  a  r  j 
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S  e  g  i  n 

f  i  n  i  s  ft e a.    :  =   false} 

i  i  n  e  s  ( 1 )  J 

g e 1 1 i i 2 {  'ugtali.texi'}; 

1  i  n  8  b  ( i ) ; 

re  mm  :c:i 
e  a  a ; 

.:     ( f  1  s   =    ic  >    and    f  i  a  i  s  a  e  a    men 
c  e  g  i  a 

Curre^^t  .ait    :=    s  :r ; 

:urreat'»T.alt    :  -    s  :  r ; 
e  na  J 


-roceiure  bias 


var        nenunum    :    mvaluei 


C2&l"i 

r     r  ,      *         t  *  r  t  •  •  '  /■  *  r  *  ,—    r 

m2nuauir    :«[lf<2,.5f4tbtbf    i7    , 

repea; 

lines (2); 

sb  t 1  i  l  e  (  '  s  a  ^  e  rr.u  .  1 2  x  t ' }  j 

i  i  n  e  s  ( 1 ) ; 

5  e  i  e  c  i ; 

read( en) ; 

if  ca  in  nenunum  tnen 

d  e  g  i  n 

i :'  201  a  (  input)  tnen  reaaia; 

fiaisnea  :=  true; 
eaa 

else    i i    en    in    [ ' w ' , ' 4 ' J     t  ft  e  n 
d  e  g  i  a 
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q/ai  t    :  =    true; 
2xi t ( SAassen) >' 
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if   eoi n( i  nput )    men 


end 
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get file (  'sa 
1  i  n  e  b  (  i } » 
return ccr; 
ena 
else 
De^in 

curren tgt .sa    := 
cur  renter. aa    :  = 
exi i (S Aassgn) > 
end 

else   fnsnuerror! 
until    finisneij 
rurrentgt.sa    :=   en; 
curren  tart .  f las»  I  n J     : 
curren  t'JT.sa    :=   cm 
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nrocelure    re^ar^s; 
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cu 
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oe 
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lin 
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Deg 
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ntgt.ren    :=   no  string; 
not    finisned.  lo 
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ar; 
es(b); 
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mpt; 

din; 

neip-ne   tnen 

in 

inisnei    :=   false; 

ines(l) ; 

etfiie(  'remarKs  .text  '); 

lnes(i ); 

eturn  tar; 

; 

auit  tnen  exit (remarss ) ; 

(fig  =  2)  and  finisneo.  tnen 

in 

u  f  f  e  r  :  = 

utst  rine(  4:0)  »' 

urrentgt . rem  :=  sir; 

; 
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en: 
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proceiure  xapreft 
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cu 
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He 
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wri 
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beg 
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r 
end 
if 
if 
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C 
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a; 


ntgt .mapref sr  :=  nos trine:; 
not  finisned  i o 


ar; 
95  (b 
tela 
mpt; 
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neip 
in 
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ines 
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» 
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ned  : =  false  > 

(i); 

ie(  'mapref . text ' ) ; 

(1); 

n  t  a  r ; 

tnen  exi t (mapref  ) ; 

=  2)  ana  finisnea  tnen 

r    :  = 

ring(  2fcM  ; 

ntgt. ma prefer    :=  str; 


orocedure   source; 


Deri 
cu 
wn 
oe 


rre 
lie 
gin 
c  ie 
iin 
wri 
pro 
rea 
if 

b  c  o- 

f 


1 

r 

eni 

if 

if 
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ntgt. sour  :=  nos t ring; 
not  finished  do 


ar 

es 

te 

mp 

di 

ne 

in 

in 

in 

et 

in 
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J 
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(f 
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n; 

l  o  m  e  tnen 


is ned  :=  false; 
es(l); 

fiie(  'sour. text'); 

es(l); 

u  r  n  i  a  r ; 

i  t  tnen  exit ( source  ) ; 

lg  =  2)  and  finisnea  tnen 

f  e  r  :  = 


..do  not  exceed  '£i    r.iaracters 


6  ft? 


cutstrin?(  JdfcM  » 

currents t . sour 
era; 
end? 

li ; 


=    sir; 


ro?eiure   afotonum; 


es-in 

curren 

*ni  le 
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"lea 
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wri  i 
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read 

if  n 

negi 

fi 
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li 
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ena; 

if  a 

if  ( 
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DU 

CU 

cu 
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end  ; 
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tgt .pnot cnum    :=   nosinng; 
not    t'inisnea   do 

r; 

s(b); 

ein('  iuNTEK    AiHlAL   PHOTU    YUM-bJi'fi ')  > 

pt ; 

in; 

eipTie    tnen 

n 

nisr.ei    :=   *'  a  1  s  e  ; 

aes(D* 

tfile(  'afotonum. text'); 

nes( l ); 

turn  Ddri 

ult  men  exit (af ctonum) » 

fig  =  'd)    and  fmisnei  tnen 

n 

ffer  :=  ' 

tstrine( lb) ; 

rren tgt . pnotonum  :=  str; 


procedure  pnoto^rid; 

cegin 
range  :=  Bi 
wniie  not  finished  do 
Degin 

clear; 

lines (S) ; 

getf iie(  'pnotogndl.text  ' ) ; 

prompt ; 

readin; 

if  fig  =  6J  tnen 

Degin 

currents^ . pno t ocora  :=  nostringj 
exi t ( onotogrid ) ; 

end; 

if    (fl?   =   ~d)    and    ( lens'tr  (s t r)    =   l)    and 


s t r  [ l J    in 


s    J  )    ta< 


bl 


e 

i 

en 
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currentgt . pnot ocori  :=  currentgt .ioc ; 
exi  t ( pnot o?rii ) ; 

end  J 
necsdigit  ( s tr » ox , range  ) ; 
f  quit  men  exit  (pnotogrid); 
r  nelpme  or  not  ok    tnen 
egm 

fiaistied  :=  false; 

iines(l) ; 

ge  t  f  i  l  e  (  'pnotogridH.text'); 

iines(l)  ; 

re  turn  Da  r; 
na; 
f  (fig  =  2)  arl  finisned  tnen  currentgt  .pno  toco  r: 
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=  St 


proceiare  DTSactive; 
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cur 

w  h.  i 
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ie 
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fi 

li 

se 

li 

re 

end; 

if  ( 


DTSact  :=  cost ring; 

finished  do 


e); 

n(' 
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TS(str,os) ; 

t  tnen  exit  (DTS-active ) ; 

pne  or  not  ox  tnen 

n 

nisnei    :=   raise; 

nes(l) ; 

ti"iie(  'lt<?act.text  ' )  J 

nes( 1) ; 

turn  Da  r ; 

t'is   =   2)  ana  finisned  tnen  currentgt  .DTGact  :=  str; 


en1 
md ; 


procedure  tgtaccuracy; 

De^in 

currentgt  .ace  :=  ' '<k' ; 
currentCT.acc  :=  '4'; 

repea  t 
clear ; 


&2 


11 
ze 
ii 
se 
re 
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ce 


nes  ( 
tfil 

nes  ( 
lect 
ad  ( c 

en 
£in 
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if 
if 

if 


besri 
ii 
ge 
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re 

end; 

ind 

'ise 


4); 

ei  't^t  ace  ire  nu. text") ; 


ti); 

in  7i e n u c a r  tr.ee 

oin  (input)  men  readin; 

n  in  [  '  1 '  . .  ' t '  J  tnen  finished  : =  true; 

n  in  ['5't'6','R','r'J  tnen  Tier.u error; 

a  =  '  v  '  t  n  e  n 

n 

nes(l) i 

tfiie(  'tsjtacc.  text ') ; 

nes(l) ; 

turned  r; 
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cu 
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au 
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n  in  [ '  Q  i  q ' J  tnen 

n 

it  :  =  true ; 

It (tet accuracy ) > 

in(input)  tnen  exi t( teta crura cy } 

rror; 

stied  =  true; 

t  ?  t .  f  i  a s [ n  J  : =  off; 

t  g  t . a  c  c  :=  en; 

tCT.acc  :=  en; 


end; 
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(* 


CHANGE  PEJCiiLUR* 


proceiure  caseproc;  forwarri; 
proceiure  lisplaytet;  torwara; 


proceiure  cnanee; 

var   puncnout,  yes  :  ooclean; 

proceiure  cnangeinfo » 

^  e  g  i  n 
clear; 
iines(2) ; 
getf i l e( 'cnangei nf  o .text  ' ) ; 

linesU) ; 
space  car  ; 
c  iea  r; 
end ; 

oroceaure  yescaectj 


begin 

fin 
yes 
lin 
wri 
pro 
rea 
if 
eis 
eni; 


isr.el  :=  falser 

:=   raise; 
esU); 

teln('  cnan«e   v      Kes)     N(o)'); 

•npt; 
d(cn) » 
(en   =    '  i ' )    or    (en   =    'y')    tnen   yeb    :=    true 


e   il- 


ea 


' w  ' )    or    (    en    = 


men    ouncnout    :=    true; 


oroceaure   c.igprociii 


-  — 3  -  -1 

wit 
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n  cu 
egm 
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if 
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cle 
lin 


rrentet  lo 


Current  air  pnoto  grid  is...',pnoto^on,>; 


ar; 
es(a); 

tein(  ' 

c  n  e  c  t ; 

yes  tnen  pnoto^rii; 

puncnout  men  exit (cngprocH) > 

ar; 

es(3); 


04 


*riteln('   Current  DIG  target  activated  is  . . .  ',ETkact ) ; 
yescnecs; 

it'  yes  tften  DTSactive? 
if  puncnout  men  exit  (cneproc^) ; 
clear; 
i  i  n  e  s  (  5  ) ; 

writeini'   Current  accuracy  is  . . . ' ,  ace  cur  ) i 
yesctieclc; 

if  yes  tnen  t?taccuracy> 
it'  pur.  en  out  tnen  exit  (cngprociJ)  i 
end.; 


•ni; 


procedure  cnangeproc; 
fie/ 


tern 

quit  : =  t 

caseproc; 

w  i  I  IJ  c  u 

oegin 

CiP 

lin 

*n 
iin 

*ri 

yes 

if 

if 

cie 

lin 

#ri 

yes 

if 

if 

cie 

lin 

wri 

yes 

if 

if 

cie 

iin 

*ri 

yes 

if 

if 

cie 

lin 

wri 

wri 

yes 

if 


t 

nen 

out 


aise; 

rrentet  lo 
ar; 

es(<j); 

tein(  ' 
e  s  ( 5 )  i 
telnC   Cu 

cnecK 
yes  t 
puncn 
ar; 
es(B) 
teln( 
cnecfc ; 
yes  tnen  t 
puncnout  t 
ar; 

es(=)  J 
teln( 
eneeff i 
yes  tnen  t 
puncnout  t 
ar; 

es(3): 
telni 
cnectf 
yes  t 
pun  en 
ar; 
es(3) 
teln( 
tein(  ' 
cnecn: ; 
yes  tnen  t 
puncnout  t 


TARGJST      NUM-b^H 

■rent    location    is. 

etioc ; 

nen  exit ( cnanse pro 


,  t  nurr 
',io- 


current    description    is 


etnesc ; 

nen  exit  ( cnaneeoro 


•  •  •     » 


iesc 


lurrent    class    is... 


g tc lass ; 

n^n   exit ( cnansenro 


lass,1; 


c) 


Current  priori :y  is 


,  j  r  i  d  u  f  / ; 


nen  t 
out  t 


Cu 


*?tpri ; 

nen  exi t (cna nee  pro 


rrent  status  is...  ,statl 
c n  t a rge t  list?..',statii 

etstatus; 

nen  exit ( cnan^epro c ) ; 


/  t 
)'t 


o: 


clear; 

1  i  n  e  s  ( B  J  '^ 

writelnl'      Current    type    ib. . . ' , ttypeouf  ) ; 

yescnecK ; 

if  yes  tnen  tgttype? 

if  puncnout  tnen  exit (cnanseproc) » 

clear; 

lines (3) ; 

writein('   Current  altitude  is...', ait); 

yescnecKj 

if  yes  tnen  tgtaltj 

if  puncr.out  tnen  exit(cnancepro^) ; 

ciear; 

1  i  r:  e  s  (  S  '/  ; 

w r i t e 1 n (  '   Current  supporting  ~t  r  r-  assigned  is.. 

yescnecK; 

if  yes  tnen  S  A.  a  s  s  g  n ; 

if  pun en  out  tnen  exit ( cnanffeproc) ; 

clear; 

l  i  n  e  s  { B )  ; 

w  r  i  t  e  1  n  (  '   Current  r  e  m  a  r  k  s  i  r  e  .  . . '  ,  r  e  h  x> ; 

yescnecKj 

if  yes  tnen  re^ar^s; 

if  puncnout  tnen  exi t ( cnanaeproc ) » 

clear; 

lines (B) ; 

-ritemi'   Current  map  reference  is. . .  '  . maprefer) ; 

yes en ecu; 

if  yes  tnen  m a p r e f  i 

if  puncnout  tnen  exit(cnanffeproc); 

clear; 

iines(  =  )  ; 

writeln('   Current  source  is . . . '  ,sour ) ; 

yescnecf ; 

if  yes  tnen  source; 

if  puncnout  tnen  exit  (cnansreproc )  i 

ciear; 

l  i  n  e  s  ( B ) ; 

writeln('   Current  air  pneto  number  is  .  . .  '  ,p.io  tonum  ) ; 

yescnecs; 

if  yes  tnen  afo tonum; 

if  puncnout  tnen  exit(cnan?epro~N; 

cngproc'<! ; 


,  saouf  j ; 


m  \  ; 


end; 

eni ; 


begintcnange) 

manlatoryiteT)  :=  false; 

cnangeinf o ; 

if  not  current  tnen  fetcntgt (l ); 


CO 


it  quit  tnen  exi t( cnange ); 
repea  i 

puncnout  : =  fa  is?  ; 

~lea  r; 

i  l  a  e  s  ( 2 ) ; 

writpm(  '  Tar^ei      ',  currents  t .  tnum , '    is    ioau.ec    into    nernory'    ; 

i  i  a  e  s  ( 2 ) ; 

«?etf  ne(  'cnaneenenu  .  text ' ) ; 

lines(  2)  ; 

beiecti 

reaa  (  en. )  ; 

if    en    in    L'l'i 'z't'a't '4't 'B.'t 'r'f '?'J    ta 

D9?in 

if   eoia(laput)    men    reaam; 
case    en    of 
'l  '    :    ai  splay t*t  J 
'  2  '    :    c  n  a  n  ?  e  p  r  o  c  ; 
'3'    :    Begin 

pu  t  i  n  f  i  1  e  ; 
out  process    :=    true; 
exit( cnange ) » 
sua; 
'4 ' i ' R ' , ' r '    :    exi t ( cnange ) ; 
'  V  '    :    d  e  sr  i  n 

lines (2)  i 

getf  1  le ( 'cnange x. text ') ; 
lines (2) ; 
space tir ; 
ena; 
ena ; 
ena; 
until  nenuioop  =  true; 
ena,* 


b? 


V 


v  d  r       i     :    i:;c^=r; 


.  i 


r  3  _-•  ;  £ 


-  ■i    > 

-  c    J 

w m 1 e    "n :    20 f (target)    i o 

:   -  -  :l      [a.  ^.51  i  1      » 

?et ' target ; ; 

-riiraplij     :  -    t a r *> e l 
l    :  =   i "  *    1 ; 


.  -    .  a.  - .  i 


it"   j    =   it    tr.8L. 
c  e  g  l  n 

rfrite(act); 

j    : "    E  J 

r.i:  J 
na; 


protean 


ret  en t e-t » 


var      noli?  r,    r    :    in  tegei 
first    :    boolean; 


2  g  i  n 
first    :=    true; 
r    :  =  0  J 
range    :=    ~; 
f  2  i  c  r.  2  a  c  <    :  =   false; 
finis ned    :=   false  ; 
\  u  i  t    :  =    false," 
ranca  tc  ry  1 1  e-ri    :=   false; 
n    :=    lj 

w a  1 1 e   not    finisned   d o 
2ee"in 

1  i  n  e  s  ( 6 ) ; 

if   g r i a   =   2    t n e n   writein( 


hiNTiif    ^RiL    LOCATION 


eise    writelnl'  ^\Ti:.    rARGET    I  UMBER'); 

prompt; 

r eacin ; 

if   grid   =   'l    tier:   cneciciigit    ( s  tr.oK,  range  ] 

else    2  g  e  c  £  n  u  rr;  ( s  t  r  ,  o  x ) ; 

i :  u u i t  t n e n  etitCfetcnt g c )  ; 

if    fetcaoacrc    tier,   neipme    :=    true; 

if   n e  1  Dm e   c r    not    ok;    t n e n 


c- 


*  r 


c  2  ?  1  n 

tiaisnea    :  -  i  a  i  s  e  > 

l  i  a  e  s  ( 2 )  > 

:  r    p  r  i  1    -    '<L  ir.^.r. 

-•  s t :' i i e (  'tgtioc.te  c t ' ) » 

end 

else 

d  e .-'  i  □ 

ee  t  f  i  1  e  (  ' t nu?  .text  ' , ; 

en  a ; 

i  i  n  ?  s  (  -i  ]  i 
returnoarj 

gn  1  j 

if    (fig   =   2 ]    and   finisned    tnen 

fi  d  i?  ^     J1 

i  i  n  e  s  ( 5 )  i 

i  r    e  r  i  d   =   ^   t  n  e  n 
d  e  «e  l  d 

vnie(  '        S  ea  r c n  i n g   f  o  r    -j  r  ::    c  o  o  rd  i  \     t  e         ' ,  s  t : 

Duilleriimapj 
en  : 

2i  se    *rits('     Searching    for    target      ',    tr); 
recnum    :  -    «. ; 

it'   grid   =   2   t a e a 

ror    recnum    :=   <.    to    numcertgt    -   1    ic 

-  -  n  A  " 

::    ?ri  imap  i recnum j     -    str    taer. 
Degi :. 

lines (l ) j 
telai'  Iir?ec    no.    ' ,  tfirtmapLrecnumj  , '    nas    :*  ocr; 

ii    first    tnen   noidsrr    :=    rtunui  ; 
first    :  =   f  a  i  s  e  ; 
r   :  =   r  +  1  j 
en  a  J 
eno ; 

if    r   =   i    tnen    recnum    :=   no  lie r; 
if    r   >    1    tnen 
d  e  &  i  n 

finisned    i=    t3j.se> 
l  i  n  e  s  ( 1 ) » 
it ri  t e l n (  '  Select    t ne   ae s i  re d    target    nu  m  o  er 

i  i  n  e  s  ( 1 )  J 
space  cari 
exit(fetcatgt] ; 
end 
enc 

=  ^s?    waiie    ( tgtmap  [recnum  J    O    si**!    ana    no:    (recnum 
recnum    :=    recnum   +■   x> 
wnte(dot)  i 
:t    recnuT    =   numoertgt    -   1    tnen 


3  :  -  s 


t  s  i/  i  ,  > 


from    tae    a  cove    1 1 s  i 


:  e  r  t  e  t 


- 


c* 


r  ai52i 


d  e  g  1  n 

♦     i     -    -     c,   i-    o    -i 

srro  ^^  J 

d  e  £  1  n 

/*  r :  1  e  (  1 0  1 )  ; 

itcii  c a r ? e 1  ,re:..j°  ]  ; 

get  ( t  arget '  ; 

w  r  i  t  e  ( a 0 1 )  j 

-  u  r  r  e  a  t  s- 1    :  =   t  a  r  ?e  t 

sees' -I, rec aum ) ; 

get  {QT ;  J 

current*?    : =   * I    .que 

*rite(aot]  ; 


5  -i  a  > 
eno. ; 
r.aj 


proceaure    lei, 

D  s  .-*  1  r. 

» I    .  a  u  e  r  r  e  c    .  - 
seeic(QItrecnum)  » 

p  u  t  ( Q  T  2 ' 

:-rxei    .  ts>trec     :-   emptytre"; 

see.-c  (  target ,  rec  ;:un  )  ; 

put(target); 

e  q  a  i 


proceaure  :eirteL.-ii 


c  e  p  i  a 

cics r  > 

lines(  2)  ; 

*riteln(' 

1 1  n  e  s  ( 2 )  ] 

g e 1 1' i  1  e (  'ueitgt.text 

:  s  r.  ?  a  t 2 t  (  1 )  i 

if  act  quit  t a e n  a e 1 ; 
eao. ; 


\ 


i  £1    i 


aroceaure  caseprocf 
v  a  r   n  0 1  a  c  a  r  :  c  a  a  r  J 


<  c 


DSgl  n 
w  L  t  r  ? 

noil 

'1 


e  q  :: ; 

?.  Old 
C  a  b  ° 

1 


end  J 

Ccse 

i 


„ : 


e  a  a  > 

noil 

r»a  ca 


. : :  e  n  t «  I 

■  a  ."  :  =  S 
r.  o  1  i  c  a  r 
s  a  c  u  i 
5  a  du  i' 
b  a  D  u : 
c  a  t  u : 
s  a  c  u :' 

s a  du 

b3  DU 


car  : =  ace; 

n  o  1 1  c  a  r  o  r 

:  accDui 

:  a  c  c  o  u  f 

:  a  c  c  o  u  f 

',     a  C  C  D UI 

:ar  :  =  ^ri  ; 

a o la c a r  of 
pri  out" 
p  r  i  D  u  i 

p  r  1 c i : 
p  r  i  d  u  f 


cor  : =  c i y p  e ; 
near  c: 
EEypeoul 
l  Eypeout' 
Etypeout' 


:  = 

' .-  c.  I  i' 

* 

'.  — 

*  j : 

:  = 

'AIR 

• 

'.  — 

ft  1  r.  , 

* 

*  — 

r          -*    . 

;  = 

V       .  *     -    f 

• 

I  ~ 

f-   i.  *l    « 

•    -, 

'.  — 

i   T  »"i  O  r 

^ 

'.  - 

N  0  li  : 

I  S  : 


Cont'i  rned 
Prcoa  die 

.-  C  3  3  1  Dl  e 

J :.  i  r:  j  *  tl 


l 

I  i 
i  I 


ena; 
nold 

?ab^ 

'  1 


E Eypebul" 
i  e  y  p  e  t-  u  f 
E  EypeDui' 
E  e  y  p  e  tj  q  f 
i Eype cur 
EEypeDUf 


r.ih 


j  ■ 


'INST' 
C  r  A 1 


jl  i  a 


=  'FOR?' 


car    :=   s  E  a  E  ; 

n o 1 1 c a r   or 
,    2      :    d  e  *;  l  n 

s  la  tl 
s  E  a  :  c 

;  - 

'rss'; 

end ; 

D  e  g  i  n 


s  Eat  2  :=   NO 

s  r.  i ; 
, '  6 '  :  D  e  e  i  n 

5  Ea  1 1  :  =  '  I N  A C ' 


VI 


5  I  d  1 2    : 
end; 


i  j 


end ; 
1  n  a ; 


Droceaure    ^aincarij 


writ 
writ 
writ 
»rit 
writ 
*  r  i  t 
writ 
writ 
*r;: 
w  r  i  t 
*rii 
writ 
writ 


eia 
Bin 
eia 
sin 
5  in 
sin 
eia 
em 
eiD 
el  n 
e  -  a 
eia 
eln 

ea 


si 

z  i 
wi 

(a 


t  n  currentgt 
d  e  ?  i  n 
3 t  s  ; ; 
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> 


Lo  cation :   . loc , 

lescriy ti  on:  ' ,  les 


t  —  X  0  « 


pe 


, ttyoe 


<~ ,  » 


,ciass  , 

t :  ',sour)l 


oiass 

'?:io::i; 
'  3  A  ass  n g 
Source  of 

'  .C  ?  S  Activated:  ',.".-■  c  t  i  j 
Pro  to  ;«o  :  ' , pnotonum ,  ' 
m o  t  o  C  oo  ra :   ,  pn o  t  o  c : r  i , 
'Remarks:  ' ,  r  e  m } ; 


--  c 


I.  3 

c    r 


I  ^    -  _ 


Ul   „  ,    > 


:  c  u  r  a  i 


i  u  r  e   E  D  A  c  a  r  1 ; 


var  no id car  : 
laTirep  r  uf 
damassbuf 


(J  a  a  r  > 


strmgLHJ  ; 


;e?in 

Id.-' 


dSSDlif 

re  oouf 


w  r  i  t  e  l 
w  r  i  t  e  1 
«»ritei 
write! 


n  ^    - 

r    r 

a  ^ 
n(' 

I'O 


dt: 


l  r  i  r  r" 
JniL 


.C  -T 


1 

ft  V  JL I L  L  A 

\o  'type 

r.O  LHlb 

r  i    :  =  1    t  o   3  d  o 

if    (currentet.tiasCi    ~ 

begi  .i 

a  o  i  a  c  a  r  :  =  d  a  m  r  e  p  J 
case  n o i i c a r  of 
'  1  '  :  damrepbuf  '•  = 
''d'    :  lamrepbuf  :  = 


1 6 J    =   off)    en 


-.1.'  A 

'LiST 


>:  BE 


i/dlaf-'S 


*itr 


Ay  C       2  fe  C        ,    » 

Assessed']  I 


urrentst.EDAli] 


?v 


3       : 

in  a; 
.  o  l  a  c 

'l' 


aamrepDuf 
laiirepcui 

;  a  -  i 

1 1  -  :  -  )  du  : 

lamrepcui 

l a m r e p  c  if 

Hrre.r  it 


fir 
nol 

-I  a 

i  a 
la 

ia 
z. a 
id 

aa 

aa 
la 


i? 

d 

na 
rr  a 

na 

To- 

ma 


aanass  j 
a r    of 

bb"^ :' 
b  b  D  U I 
ss:i.: 

:;:  11 
SS  C  HI 
SSDUf 
5b  DU  : 


' .-  -  r  A  S     '  - 

>c«er v -  i 
in  £  a  own 


L  A  '  A  ~-  i  _ 

„....         ..        jL 

I  i  r. .-.  £     LE 
a»  J  a  HAiji 

iLi.'Jflu'A 

''Jno  c-ss  rv    a 
' 'J a sn  .  v ; 


i  re  v 
1 t  a  1  n  ( 
1 1  e  1  a  ( 

- ::  i  J 


21/  A  • 
» 


Si."  V 


•  7    ' 

tamrepDuf : 


rsu.ni  i.  i  3 » 


.i  t  £  X  t 


a  s  s  c  u  i     » 


procedure    :is:i  =  yu  ii 


(i  s  «?  1  n 

w i  t n    jurreatsrt    l o 

L  C  fc  1  .1 

ciseproc; 
raincari; 
ii  stai  in  [ ' : 
e  n  i ; 

*  r i  t e v  'treturaer, 

repeat 

r  e  a  l  ( c  n ) » 
until  ?Ci:(: aput ) ; 
encj 


proceiure  ii spicy; 


cs?ir. 


fmisaed    :  =   i  a  l s  e  ; 
quit    :  =   f  a  i  s  e  5 
repeat ; 


L 


i  e  a  r ; 
liaes(H); 
*  r  i  t e i a  v 


w    ft  -      -  /      > 


ines(l); 
n  r  i  ;  e  1  r.  {  ' 
iiaes(l)i 
.v  r  i  C  e  1  n  \ 
*  r  i  t  e  1  n  i  ' 

*ri  tsm  v  ' 
.1  ies(i); 

5  6  i  8  c  t ; 

re  -  -  [  c ::  ,  , 
1 :     "■'    in 


i  '„  '     ' 


i  -i  -  i'  c  -     H  U  i™i  D  c  r         i 

i  m'ormat  ioc  '  \  » 


r  '  ,.    ' 


=  e    c r. 


i 


.     parr"r"r  '  •"'  '  • 

i_-  <  •  •  UwXili 

lines  k  i  / 1 


gett'iie^     liSptgl-.teXt      /  » 
i  i  n  2  S  ^  1  }  J 

spacetdr; 


enci 

r  m    *        *  *   *        *        *        *        f        f        * 

-  »  '•  «  i  «  »  f  v(  • 

end. 

-  ■"  - 

else  T'enuerror; 
a x l i  finisnei  or  quit; 

i  net  quit  i/  .i  2  n  1. 1  ~5  p  l  a  j  v  g  t » 


;  -  '  -i 


a.r   » 


procedure  put: 


J.  IS  > 


ts e  gi  q 

se 

La 
Sc 

pu 
tg 

se 
se 
31 
se 
pu 
cu 
cu 
end.; 


sic  (  target ,  recnum)  ; 

t  ( ;ar?5  t ) ; 

r  g  e  t    . t g t r e c    : -   currentgtj 

e*c( target , re cnum) i 

t  ( t  a  r  s  e  t  ]  ; 

tmap[recnumj     :=   target    .  tgtrec.t, 

ex(CT, recnum ) j 

t(wT); 

. q u e r r e c  :=  current 3 T j 
e«£(0Tf  recnum  )  ; 

r r e n t g t  : =  empty Tree > 
r r e n t C T  :=  empty Creci 


u  > 
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-    i  . 


m   o  n l p  r  o     ?  s  s    c  It      .       •  s  s  ,  > 

§s  p  e  a  t 

c  i  p.  a  r ; 

*rit9ln(iots)j 

i  i  a  e  s  ( 3 ) ; 

*  r  1 1  e  1  r.  (  ' 
1  i  n  s  s  ( Z ) ; 
h  r  l t s  i  n  v 
1 1 ne s ( l } ; 
w  r  i  t  e  1  »i  ( 

*  r  i  t  s  i  n  ( 

*r:t;i:i( 
_  .  .  i  ' 

*  r  i  1 9 1  n  \ 


*our    options    -. :•    /> 

l .      - : 'i  i  -    target    cc    ;n=      ._.',; 
2  .       L  i  s  p  1  a  j    in ;  .        it 


..  a  i.  - 


u  d  .    =:  r 


:'    (  j  u  r  r  £  n  z  £  z  . c  i  a  z    -    '  1         3 1  ,..':-..,-:.:- 


t  r.  c n 


w  r  i  t  e  i  a  \ 
1 1  a  2  b  v  1    » 

real    ( c  n ) ; 

i :    c n   in    l    1    .  .    :.   j    t ne a 
d  e  g  i  n 
it    eoln(input>    c  n  9  n    r s a  1  i n J 
finisnea    :  =    t r u e  j 
case    en    of 
'i  '    :    puti  ..f:  id  ; 
'  l '    :    c  e  =:  i  a 

f  l  ni  s  ne  a    :  =  :'  a  i  s  e  ; 
li splay  let; 
e  q  a ; 
'  3 '    :    d  e  g  i  c 

current     :  -    trie; 
c  n  a  n  §  8  J 

if    outprocess    t a e n   e 
eni; 
4       :    aei , 

'5'    :    if    ( currentgt .s tat    = 
o  5  ?  i  n 

isBAcounter  :  =  1 J 
current  :=  true; 
n  s  *  .c  D  A  j 

finisnea    : -   false; 
en  a 
=ue   menuarror; 
e  n  a ; 


Ail     D  a  1 1  x  9      1  a  I    -  - .  -     i  S  S  9  S  S 


-  -  ■  r.  /       /   > 


t i  -.:  ';cess  ,  , 


./    ur    iuurre.1i5t.5ut 


else    i:    en    -      V      men 
Degin 

finisnel    : =   false; 


eise 


c  1  2  a  r  , 
l  i  r.  e  s  '  o  '.  >' 
e  e  1 1'  1 1 2  {  '  p  r  c  c 
I  i  n  e  s  ( l ) ; 
b  p  a  c  e  t  a  i  » 
2na 

senile  rr  or; 
f  i  n  i  s  n  e  a    -    ::uei 


l  n  f  o  .  t  e  x 


procedure  caec^aone  i 

var      couai»n    :    integer; 

ce*  in 

count    :=   uj 

:  o  r    ?!    :  =    i    to    nunc  z  c  =  c  k    a  o 

ii*    currentgt  .f  ia«?  [mj    O    oil'    tner.    ~;u;:;    :  = 

it'    count    =   i    t a e n 

ciedr J 

lines ( y  ) ; 

-r;:^^:.  v  in  try    ::    target    nur.  oer 

i  i  a  e  s  ( 2 )  i 

spacecarj 

i  o  a  e    :  =    true; 
ena 

-  i  5  -    c  e  %  i  n 
c  i  2  a  r ; 

1  -  :'.  2  S  (  d )  j 

«/rit2in{'£    numoer   of    items    aave    not    oeen    complete-: 
repeat 


t    -  -  a  - 


,«?t . 


is    c 


1  r 


ud,.f».u  t  ^  *J 


x  i  a  e  s    ( 2  )  i 

v  r  i  t  e  1  a  { 

i  i  n  e  b  ( i  J  ; 

*  r  1 1  e  i  a  ( 

u  r  1 1  e  1  n  (  ' 

» r  i  1 2  i  n  (  ' 

lines (l) I 

select; 

r  e  a  &  (  c  n  ]  » 

if    en    in    ['l ' ,  "t '  ,  'o  ' , 

r>  p  £?  T    r 

•   -  -J  -  " 

if    eoi:.;  input  ) 


.  Q  C      C  ^  U  a  v  .*  3      a  . 


,    > 


1 .  Conti nue    »or£ia&   on 

2 .  £  t  c  ^    *  c  r .-: i  l r,*    on    tar g 
o.       lace    ::.d.^-ei    to    tne 


e  t  ' )  > 
t  a  r  4?  e 


L       I    1 


\,      1  j:  o  a      /   > 


'. .  '       <•   .  /•      '  .,  ' 


Q2n 


r  2  a  1 1  n  i 


1 


u  a  5  ~      C  n     0  1 

:    2  x  i  t  ( c  :i  c  c .-:  a  o  n  e  ]  » 
:    o  9  ?  i  n 

lone    i =    true; 

exi t(caec£ione ) ; 

e  a  a  J 


•    b  e  ft  i  n 


one    : =    true; 


7c 


.  w  r  ; .".  ,  •  —  ^.^"i 

I  .  "  -r  i 

s  x 1 t  (  cn 6 ex :  :. -  ; 
e  na  i 

i  i ne  s ( e  /  >  ^ 

-  (triie('c£ai  nex. text 

-  -  ■-- ;  J )  i 
returnoar; 

eni 


/  » 


ni 


e i b e  menuerror; 
clear  J 
until  menuiccp  =  true; 


en< 


procedure  aadtgtinfo! 

e±?in 
clear; 

writeln(dots); 
lines (2) ; 

eetfile(  'addtetinf o  .text ')» 
ilnes(2)» 
spaoeDar? 
clear; 
liaes(2); 

?e  ti'ilet'ada  t  i  nfl .  t  s  x  t ' ) » 
lines (2); 


procedure  newtarset; 

b  e  g  i  n 

recnum    :  =   Zi 

ri a i  1  e    tgfnap[recnumj    O    '2>2  2QZ2'    1  o 

recnum    :=   recnum    +   1» 

if    recnum   =   number tgt   -   i    tnen 

b  e  ff  i  n 

ciear  J 

l  i  n  e  s  ( 1 1 )  > 

»riteln(' 


1 1  n  e  s  ( '<L ) ; 
vri  teln(  ' 


I:.i    J u L L     /  J 

creels    ''.use;    ce    aeiete; 


oraer    to    cor.ii n u s      ; 


1 1  D.  £  S  ( -a:  J  i 

spacecarf 

i o n e    :=    ;:uei 


e  t 

ee 
ei 


s(wT,rrcaufn); 

/  ..  ~  >  . 

V  W  X  .1    » 

rertQT    :=   wT^.^uerrec; 

ti  ( la.  rx?  t ,  recnunr  )  » 

v  c  a  r  g  =  t )  i 

rentgi    :=    carpet".  t&tr«=ci 

l    : =   I    co    Qumoervar    10 
u  r  r £  a  1 5 1 . 1 1  a.5  l  t  J     :  -    on? 


j  a  r 


:.  C  £  ?  9  I  J 


t£6in 

au^iDcaecis    :  =    ic; 
[rancUtor/i  ten    :=    inei 
c  u r r  £  n 1    :  -    f  a  i  s  £  > 
catproc£S5    :  =    f  a  l  s  £  » 
r  i  ri  i  s  n£ i    :  -    f  a  1  s>  e  5 

10  Ti£       !=      !  ai;c  j 

4  U 1  t     :=     I'ilbri 

os.    '.  -    t  r  u  £  J 

0  1  £  a  r  1 

: :'    :':  :  b  1    ta£E 
;e<?in 
«<rit£in(a.o  is  )  ; 
1  i  n  £  5  ( l ) ; 

s?£tfil£('pr£te,t.t£xt'/i 
prompt » 
f  i  r  s 1    : =   rd.se; 


d  *  c  d 

--gin 

1 1 II  £  5  v  Q  ;  j 

«  r  1  z  £  1  a  v    ::  *   For  information  «  ;  /  p« 


j.:.::..1.:-;,  oreii  -^„.-. .. 


p  r  0  m  p  1 1 

£ :.  1 ; 
rapaa  t 
rac: ( en)  J 
if  2 pi  =   ?   l r ° r 

C  £  e.  1  ;. 

acd.  >, ^ 1 1 .',  1  c  » 


r  = 


I 


u  a  1 1  4    -    j 

11  puwi 

. 

a  car 

- 

J'     13.1S     I                                 llli.rzeil)\ 

* 

ai x  =   not 

J     ;  '- 

t 

- 

♦      -  .     —            r 

-    i    lo   LiiTi     c v a r   -  C    1  c 

1:^1 .1 

i :'    jul  t    t ..  e ..      . .  '.      ia  targe  t / j 

il      ■„:.  r. .>•..:  ^  j  c-  [:.  j     -    a  ..     i  • 

Lcf-in 

case    n   c : 

X 

t  e  c  3  j    i 

£ 

utioc! 

•1 

t g  t  a  e  s  c  ; 

<t 

L  ?  » :  i  a  2  3  i 

0 

t  §  t  p  r  l  i 

w*        < 

tgtstatus; 

?     . 

c «?  1 1  y  p  2  ; 

oefi  a 

naaia  tcryi  te.Ti    :=    false  J 
t  ?  t  a  1 t  i 
■  i; 

J 

S  A  a  s  s  ?  a  j 

1< 

re  n a  r i s  >" 

11 

in  iprer  » 

1  b 

sci;::?; 

1  «_/ 

:    ai'otoauni 

14: 

paotcgria  ; 

1C 

:    D Tractive} 

lo 

:    tgtaccuracyj 

e  a  a ;  ■ 

.case) 

eaa; 

:'  i  a  l  s  a  t 

*  a    j  =   :'  a  i  s  e  ; 

ena;    tl 

for  j 

ii    1 1? 

<>   o    taea  caecKione 

eise   ac 

>ae    :  =    true » 

g  a  a  J    i  * : 

l  i  l  e  i 

oroceb b 

i 

proceaurs    t g t an e n u ; 


cxedr  't 

wri tela (stars  )  i 

i  i  a  e  b  (  c  ) ) 

«v  r  i  t  e  l  a  (  ' 

liaes(l); 

*vritela('  Tae   cpiio^a   are:';  J 

i  i  a  e  s  ( 1 )  J 

writeln^'  i.      Aaa  a    target'); 


oriiiif"  ua    la e    iar&et 


le    ; , 


79 


w  r  i  t  e  l  l  \  0 
n  r  1 t  e  l  a  ( 

*  r  i  t  e  1 :.  (  ' 

*  r  i  t  e  i  a  ( 
<vri  tein  (  ' 
lines(2); 

enai 

prccrCLj.r?    i  j.  s  t  c  r. j  c  'i  > 
.'i?      j    :    integer; 


unange    a    target    /> 

L i  a  p i  c y    c.    tdr^'£[    /  j 

.j  n  t  e  r    ~    tc  »  5  s  i    survciil< 


LfClClfZ       d       l/QiifSi)        /f 


return  /  > 


e  a  i,  x 


i  11C       ;  » 


CCfe    1 


j    :=   *\ 

iines(^) ; 

rf  r  i  i  e  1  n  (  '  L  1  £  :    : 

lines (<£) ; 

for   i    :=   c    io    numcertgt    lo 

1 :'    tgtJiap[iJ    <" v->    '  t  c  •_  c  i  L       t  a  e  n 
d  e?  i  a 

»  T 1  t  c  ^  »t^tT1ap|_lJ;i 

J      :  =     J     ~    i  'i 
Li'    j     =    b    ::--;. 
cegin 

J     :=    <-  i 
=  a  2  i 
e  n  i ; 
1  i  a  e  s  ( H } » 


.  j  —.  a.  w      in 


»ri  um  v 
i  i  n  e  s  ( 1 ) ; 
space  oar J 

maj 


Jj  11  1       J  £       i  A  il  a  i  1      _•.  ±  -5  j,       ;» 


:  r  gin   1  targe  tmoaj 
no  s  t  r  i  n s    :-  ' ', 

aocnar    :=    '    ' i 
first    :=    true; 
mandatory item    :=   rd.aei 
i.enuioop    :  =    :ii;;i 
rn  e  n  u  c  a  r    i  —    l    ■*■    ♦    *~    »    >->    »    *■*    » 
repea  t 

cur:    tit    :=   faise; 

tgtmenu; 

•select ; 

r  e  a  c.  ( c  a )  J 

if    c a    in   ",:uucar    t a e n 

oe^ia 


,    r    , 


i    —    t 


,      a      ,      1 


c£ 


ii"    20 in    i  input      c^ien    reaam; 


s  e    c  r,     C  I 

,         '         r    .     r  a  ' 

J.     t      --     » 

•  '  r      .     '  '  ' 

fc     f      U      f     G 

?       *       r  .    f       r       * 

'4'     :     r«la 


iaatar^e  1 1 

HSpidJ  i 


andatoryitc^i    :  -    1  d  i  s  e » 


'.; '     :    iei5te trft  i 
'  /    :    listens    ... 


r     f     a     f 


:    s  x  i  t  ( t  d  r  ffe  t    .  1    i 


c  1  e  d  r ; 

k'Sttiid^     c r' cm     .  .  .  I C  C  '»       » 
I  i  ne  s  ( d ) » 

SpdC5  OdTi 


e  r.  ci 


rise    rienuerroi  » 
ua til    nenuico^,    =    true ; 
snai 


=  1 


(* 


INiTiALiZh 


segment  procedure  initialize; 

mencnr  :  mvaiue; 
^ooactc  :  oooiean; 

oroceiure  initinfo; 


ce^in 


ciea  r 
write 
lines 
write 
write 
write 
write 
write 
lines 
write 
write 
write 
write 
write 
write 
lines 
retur 
ena ; 


» 

in 

11 

in 

in 

in 

ID 

in 
(2 

in 
in 
^n 
in 
in 
in 

(2 

no  a 


btars ; ; 

if  t 
'started 
'files  o 
'  t  n  e  s  y  s 

'opera  ti 
♦ 

Opti 
'start  c 
'recover 
'you  s  e  i 
' roTmani 
'initial 

r» 


ns  system  nas  not  oeen  initianzea  wnen  tne  pro<rra:n  is  )» 
,  it  win  initialize  automatically  am  create  tne  target'; 
n  tne  diskette.  Tnis  procedure  allows  you  to  re-mitiaii2 
tern  for  a  new  operation  or  to  restart  target  information'; 
ons  from  a  fresn  start.'); 

or.  2  win  ieiete  ail  tne  current  files  ana  allow  you  to' 
at  from  tne  dp? inn in?.  Tne  flies  you  ieiete  are  not'/; 
a  Die.  He  sure  you  want  to  aeiete  an  of  yur  flies  cefore 
ect  option  2 ,    Use  option  vi  to  return  to  tne  main';; 

menu,  ^ressine*  tne  return  Key  will  return  you  to  tne'); 
i  2 e  option  menu.'); 


procelure  i nit  file; 

var   i,  j  :  integer; 

d  e  g  i  n  iinitfiiej1 
restart  :=  true; 
write( lot ) ; 

J  :=  li 

wri te( do  t) ; 

close ( target , purge ) ; 

rewrite ( target , '*5: targe t file,  data '); 

for    i    :=    1    to    numbertet    lo 
Deem 

j  .•=  j  +  i; 

if    j    =   I'd    tnen 
oe^in 

write(iot); 

j    :=   1! 

ena; 

target~. tgtrec    :=  emptylrec; 
DUt ( tareet ) ; 
eni; 


up 


close ( target, iocs) ; 
reset(tarvet,'*s: targe tf lie, data   i  ; 
wri  t2 ( do  t ) » 
ciose(QT , purge  ) ; 

rewrl  te(0T,  '<*5:iiueryf  lie. data  ' )\ 
write (dot); 

for   i    :=   1    to    nuflDertgt    lo 
begin 

J   :*  J  ♦  1; 

it'   j    =   lb    t Q e n 
De^in 

wri  te(dot) J 

j    :■    U 

ena; 

3T~.querrec    :=  emptySrec? 

putOT) ; 

enli 
close  (QTflocK )  i 

reset (3T,  '#b:ciueryf  ile.data' )  J 
rfrite(dot); 


procedure    reini ti dii ze ; 

te^in    {reiai t } 

*?oDacK    :=    false; 

clear; 

lines(4) ; 
aritelnl'  THIS    FRCCaDuRS    v'lLL    D<:L^?3    ALL   TARGET    FILSS.';; 

pitein  (101s); 
linesf 1)  J 
|riteln(cfcr(7)); 

H»ritem('  Tne   options   are:'); 

lines  (1 ) ; 

*  r  i  t  e  1  n  (  '  1. 
lines (1 )  l 
writ ein  i  '                                2. 

lines (1) J 

*  r  1 1  e  l  a  (  '  3  . 
lines (l) J 

select » 

Tcp tat 

reai  'en;  ; 

it    eoln    ( input )    tften 

o  e  e  i  n 

goDdc-c    :=    true; 

exit(reinitialize); 
end; 

1  i  -    -         J-  "  I  -  •    •         "J  J  v.....* 

n  c  t?  j  n 

j d  s e    en    3 : 

'l  '    :      exi t( reinitialize } J 


Return    to    via  i  n   C o mira nd    ' e nu    .  ; 
R  e  i  n  i  1 1  a  i  i  z  Q    S  y  s  t  e  rr '  J  ; 

I  n :'  o  r  n  a  r, 1 3  r.  ' N  ; 


1  i  r.  s  b  (  2  }  » 


«  r  1 t  e  i> 


li 

p  y 


i    T 


W    w      \    »* 


:  i 
i  - 


S  (  2  ; 

(rei 


13 : 


-  - 1 S' 


::-ize;; 


I  a 


'  ■-,  '      » ,>  ' 


until    * c 
.;  I  r ^ i  .1  i  : 


ca  c± 


-       11  US) 


'1  '    '    '    '  < 


re^ip.    unitialize] 
gocaci    :  =    :'  a  i  s  e ; 
?i  2  ri  c  n  r    •  - 
::    ::^:;.-^    tner. 

?  5  g  i  3 

initr iisj 

e-:;':':::n:zev; 

=  P.I  ; 

:  1  s  a  r  » 

*  r  i  t  s  i  n  (  '  I 

1  i  n  e  s  ( 2 )  ; 

»:::=.■:('  7  -  --    )  p  t  i 

-  : ::  e  s  (  :  v  ; 

ti  r  i  t  =  i  n  (  ' 

li.isb(l!  I 

i  i  n  e  s  ( 1 ) ; 

nr.es  '':  ]  ; 

s  £  .  -  • :  .* 

p  s  a  1 J  c  n  )  ; 

li'    cr:    in   i  en  :.ir    en  en 


—      '  '  '  '  n    * 


J    » 


.    Ltidiizi:.f     c ne 
,;:;..;     ire  •* '/  I 

I n f o r.T  t i  .',. 
2  .  Ini  ciaiize  c  ..= 
6 .  '.return'  ; 


1*    e  o  1  r,    { i  n  p  u  t ,     c  n  e  c    p  e  a  d  l  r.  j 

c r  •  e    en    - : 

1  ,    ?       :    lnitinfo; 

2  :     t-  e  ir  l  c 

rei  nnUii::i 

i :'    nu:    -- o :  a  c  £    t  r.  e r.    ~ 7  1 r  '  : :.  i  :  1  -.  l  i  : 
end ; 
o    ,    -    ,    r      :    entvinitidiize:  i 

pr  1 


5  n 


|P  ^11    p     i~     vn     *,      -» 


until   t-  e  r.  u  i  o  c  p    =   true; 


s  e  k  n  - i 


var 

n  e  n  c  n  a  r 


-  ->       ■  C      I  11 


r-  ; 


T,  V  d  J.  U  2  > 


.r^-^irE   i  nf  or.Tienux  ; 


d  2  s?  i  n 
:ie=ri 
w  r  i  t  e  l 
i  i  a  e  S  ( 
*ri tei 
lines ( 

*  r  i  t  e  1 
»ri tei 

*  r  i  i  e  i 
y»ri  tei 
•ntei 
w  r  i  t  - 1 
lines ( 
en i ; 


• c  is  ) ; 


nt 

n( 
n( 
n  v 
n( 
q  ( 
n( 


is    5 e 


r  o  v  i  ae  a    lni'or-atic      i c o v i    t r. e    i    *  i  a? :     i ; 

bLo  m    to    Operate    t n 2    i y s  t e r. '  / ; 
Security    neqi  i rene n t s  ' I i 
r  <i  r  re  t   Classifications'/ 1 
.    r^et   priorities '    ; 
rareei    \naiy«is    iuiceiites'    • 
re turr;    i 


□roceiure  userinst 


r  nc  t  -.;  - 


set-in 

clear; 

*ri  ~ei  ::  (  '  byst3-    Opera  ti  or. 

writein(aots); 

iines(ia); 

*ri  teln(  '   re  Si:  INSISTED  '  / ; 

nnes (  bl  ; 

spacebar; 
ena; 


procedure  lorfiati;  rorwara; 
procedure  formatopticns;  r  o  r  w  a  r  a ; 


Drocedure  formats; 


r.  e  s;  i  n 
clea r; 
iines( 11 ; 
w  r  i  t  e  1  n  (  ' 
writeln(dots); 
lines(l); 
'PiteinC'    Taere  are  t*o  oasic  r'or^acs  use:  in  tne  target  ir. 


or~5is  J  sea  :"  tne  Displays'  ; 


formation 


CD 


*rit 

em  \ 

writ 

em( 

• 

tfrit 

-  1  Z  v 

■* :  it 

en  ( 

w  r  1 1 

e  1  n  ( 

i  i  r.  s 

5(i] 

* 

writ 

e  1  z  i 

writ 

aia( 

^ 

writ 

em  ( 

0 

writ 

-  x  r.  ( 

* 

writ 

e.n  ( 

writ 

e  l  n  ( 

t 

1 

1 

Sp 

*' 

0 

en  i 

i 

system.    Ine   first    is    a    replica    of    tne    current    target    ~ari    as    / 
specifies    in    FtflM   7-1    (iire   Support    Coordination '  .    &11    of    tne 
i n f  0 tt a  1 1  c n   a c 0 u t   a    particular    target,    inducing    target'}; 
surveillance,    can    :  e    lisplayea    oz    me    screen   or   p  r i n tea    : rs    c ". e 
line    u:i:ic:,':; 


i n e  s  e  c  0  n  1  type  of  1 1 5 p  1  a y  is  :r.e  target  listing.  'I 
listm*?  co  mains  tne  -105:  important  items  from  tne  urr 
lata  ana  is  usee  primarily  oy  tne  supporting  arms  memne 
tne  FSCC.  Inis  listina  is  avaiiaoie  in  ran/  different  t 
from  tne  r a r g e t  List  to  a  special  listing  01  particular 
cnaracteristics. ' ] ; 
n  e  s  ( d ) ; 
ace  rcr; 

rma ti; 


et  ' 

Q  r 


U 


0  f  '  )  1 

S,'/i 

Pi'P  T. 


iroceaure   rormatl ; 


"c  gi  n 
clear; 
lines ( 1 
w  r  i  t  e  1  n 
w  r  i  t  e  1  n 
w  r  i  t  e  1  n  \ 
w  r  i  t  e  1  n  ( 

*  r  i  t  e  i  n  ( 
»ri;^x^ 
w  r  i  t  e  1  n  ( 
*ri  tei n ( 
w  r  1 1  e  i  n  ( 

I  i  n  e  s  ( 2 ) 
w  r  i  t  e  1  n  ( 
wn  teia{ 
w  r  i  t  e  1  n  ( 

*  r  i  t  e  1  n  ( 
wri  t  em  ( 
w  r  i  t  e  i  n  ( 

*  r  i  t  e  1  n  { 

I I  n  e  s  ( 1 ) 
space  oar 
forma  top 
en  a; 


(  ' 


„  '  \ 


,prm 

pard 

^COUi 

'to  n 
'II  a 


Due  proceaure  m  tais  system  a  nows  you  to  display 
1  a  list  or  targets  witn  a  romcinaticn  ci  tne  foiicwir. 
meters:  status,  priority,  classification,  supporting') 
assignee,  target  tvne  ana  x'-c-zracv .    :cr    example,  you' 


0  :t 


a 


1st  Of  i 1 


f  0  r  1 1 


it  ions  targets  assigned 


aval  eunfire  for  tne  navai  gunfire  Dfiicer,  an  priori 
na  III  ccunterfira  carpets  assignee  tc  artillery  *'cr  t 

.^ry  3 : :  i : e  r  or  ail  active  t> i! A L  targets  for  tne  air'; 
cer  .  ' )  ; 


.-.  c n i r a  item  mat  can  c e  aispiayea  or  p r i n  1  e a  is 
:ar^et  Duiietm  (TARitfL).  Ice  system  automatically  ^e 


e  c,  s  . 

tne  L'arget  Lis:  ana  allows'; 

to  print  a  formatted  TAR-SUL  suitaoie  tor  transmission. 

ses  tne  staaaara  format  or  targets  aaaec  co  cne  list,' 

tea  from  tne  list, targets  cnangea  ana  imoortant  target 


t r a c .-:  of  ail  transactions  for 
you 
It  u 
^ae  le 
su  rv 


eiiiances,  1  » 


ions  » 


proceaure  I'carddisj  forward; 

proceaure  riistdisJ  :'  0  r  *  a  r  a  > 

proceaure  louiais*  forward! 

procedure  formonmenuJ  for  war a ; 


proceaure  formatoptions; 


co 


n  =  r  i  a 

r  2  p  8  3  c 

:  o  r  ■    p  ti  s  n 

]  i 

seie^i ; 

real  (  ^r. ; ; 

i :    en    l  : 

r  r  i  c  n  a  r    t .".  =  r. 

d  e  g.  j 

L  -    e  o  1  n 

( i  n  p  u  t )    c : 

.  □ ; 

0aE2     en 

o: 

c       : 

riibtiis ; 

'  /  '    . 

■ 

r  ou  i  a  i  s » 

f          r          r 

•.    ,    r      :   e  x  i  t 

for' 

n  3 


n 
PI 
Pi 
n 


eel  q 

t  S 1 Q 

tain 
c  e  i  n 


('ou 


1 .1  9. 
IIS 


IS 

a  i 


sn 

ii 


end 

i 
se 


b   :  ms  au s  r  ro  r ; 

c e „  in 

1  i  ns  s  ( <l )  i 
n  r  s  a  options  a  c  o  v  e  *  i l 

for  tru  target  z  a  r  a  . 
n .  J .i  o  c s e  o n s  of  t a s s e 
inue  ope  rat  ions  : .. ;  rs 

i  ins?  "(2d ) ; 

returnoar; 

sna 


Tienusrrori 
uioc j  =   true; 


1        II   3 

t  a  e    c 

-  .  r 


_r,  s 
-  3  y 
tc    t 


. 

-  ' 

^* 

s  n  a : 

b 

i  1  S  X 

~: 

.  i 

me 

tars 

t 

ions 

r  " 

:v 

09 

- 

L  1 1  C 

fl 

s    p  r  s 

..Ul 

u 

n  .  '  ) 

it 


ar. 


proceaurs   t'oruopnenu 

Oesin 
cieari 

rfriteln(aots ) ; 
i  i  n  e  s  ( 2 ) ; 
w  r  i  t  e  i  n  i  ' 

I  i  n  e  s  (  3 ) ; 
m  r  i  t  e  1  a  (  ' 
w  r  i  t  e  l  n  (  ' 
w  r  i  t  e  i  r.  (  ' 
*  r  i  t  e  1  n  (  ' 

I I  n  e  s  ( 2 ) 
ena; 


proceaurs  Tcarlaaaj 

begin 
*ri  tela  (  'Pnoto  No: 
<*ritein  (  'Pnoto  Coora: 


T a e  Iispiay  Cpiioz.b 


l . 


Ta:?r  t    Cara'/ ; 
larget    Listing  ' ) ; 


v  a  r  s  e  t   L: 
o.       Targe:    Bulletin    (i'AH3ULi 
4 .  ' ,  r  e  t  u  r  n )  ; 


'■lap  Ret' 
Ac cu  racy 


IRAN    4b7?-IV  '> ; 
CONfiKM£I  ')  »' 


67 


writein  (  'RemarKs  : 
lines (1); 

writein (  ' 

w  r  i  t  e 1  n  v  ' 


■st    tan £   sit-ntme   m   sector    IV. 


SURVEILLANCE- 

Firing  vO/type 

Unit  a  o  i:  n  a  s 

wrueiaC        

writelnl'   121S30Z        2   F/A-18  2     D-22 

*ritein( 'RDA:    Botn    tames    confirmed   oy   AO 
1  i  n  e  s  ( 1 ) ; 
eni; 


Attacs    */    rocxeyi 
' ) ; 


.iO 


jamage 
Reported 

DESTROYED 

AAA  coverage 


Damage 
Assessed 


); 


uESTROTED'  /  J 


on 


?t . ' ) ; 


Droceaure  Tcardlisi 


write 
writ* 
*ri  te 
write 
write 
write 
write 
write 
i  ines 
write 
write 


oegi 
ci 
in(a 
ln(' 
HI' 
inC 
InC 
inC 

in  v  ' 

inl' 

ml' 

Tip 

sp 
en 


n 

ear; 
o  ts ) 


:  TARGET  NO.   AD0012  :  ')  J 


Loca 
Lesc 
Cias 
Prio 
SAas 


tion:    .z4bb7  =  7b  Ait:    j*  Type:    TANS/); 

ription:    2   r-fc>2   Tanks    In    3PEN   FIELD'); 


rity 
ssn 


status    :    ACTIVE';; 
Tgt    List?:    f JeS  ')• 


a  I  r  ' ) ; 


Source    of    Tet:    AIR   OisS JJiRViCR   OV-ltf'); 
b?J   Activated:    121600Z'); 
arladi; 
a  c  e  b  a  r ; 

a; 


procedure  TlistdisJ 


begin 

clear; 

writein ( 

stars)> 

lines  (2 

; 

writein 

r 

TAi 

*&&T    LISTIN 

&'); 

lines  (1 

; 

writein I 
writein 

;  'TGT   MO 

• 

CL 

PR1 

LOCATION 

ALT 

SAASG 

DESCRIPTION 

writein ( 

,  'AD65feJ21' 

A 

11 

34586577 

ye 

AIR 

2    T-62    TANK 

writelni 

'ADfc)024* 

A 

I 

34524355 

i<je 

N  G  F 

FORTIFIED    B 

writein 

,  'AD0033* 

£ 

11 

iaroSbbi:- 

4b 

ART* 

FIT    ^r    T-lld 

writ  ein ( 

'AEtftfb4 

£ 

IV 

34bbbobb 

lfe 

NGI 

BEACh    FUr.TI 

writein1 

»  'AD0055* 

iij 

IV 

344bo77b 

b^ 

none 

SCHOOL    5'JIL 

writein 

>  'NA0211 

c 

III 

43225555 

? 

NGF 

BEACH    FORT I 

writein ( 

'ADtffcW 

A 

I 

34778  545 

120 

AIR 

FLT    ZSU-23- 

writein 

,  'AD0057* 

E 

IV 

l-^OO  '  O  J  J 

145 

N  0  N  6! 

?.A  11/  SUPPLY 

writein ( 

»  'AD0tfe>d 

B 

ill 

244.4c9i6£ 

2fc 

ART! 

ir  LT    DUG    IN 

writein 

J 

;  'AD0053* 
.ines(2) ; 

A 

I 

3422bby<3 

76) 

AIR 

12    VEHICLES 

J  f 
S  IN  OPEN 
UNKER  Cdi'PLl 

v<   at  suns  ' ;;, 

i"l  CATIONS  '  )  i 
DINGS  '  ); 
FICAPIONS' / 
c   ix    x ?  E E  S 1 

DEPOT  ' ;  ; 
TRENCRLINE  ' 

ALONG  ROAfl 


db 


*  r  1 1  e  1  n  (  ' 

linQs( l ) ; 

ena  ; 


Wit  i 


indicates    target    list    )» 


oroceiur?    T  r> u i 5  l  s l  i 


begin 

lear  ; 
InesU 

ritein 

rit°in 

ritein 

ines(l 

ritein 

ri  t  el n 

Inesd 
fri  tela 
»r ItelQ 
fritem 
■  item 
/ritein 
intern 
/ritein 
.ineb  ( l 
/ritein 
Lines {d 
jpdceDir ; 
ena; 


3.  CANCELLED    PARGETS  ' )  J 

A.D0034:,    M)d035,    -..c'^c,    ADK0122,    N  Afc)Hk31  ' ) ; 
ADfe)e4:3f    AD0097,    a.  .  1.  )')i 

4.  REACTIVATED  rARGETS'); 

AD'/fc77,  ALi'i^'j! 


CLASS  if i 

CAT  ION  /PRXOHIT  :'    CHANGE  '  )  J 

ADlwK5J 

A 

li'); 

ADtofc54 

C 

iv')» 

AD007y 

D 

ill'); 

ADfc*lfc7 

pJ 

I  r  j ; 

AD^l^l 

r 

i'); 

AD0221 

A 

ii'); 

CLASSIFICATION  ') 


procedure  r  cuiai s ; 


vri  te 
lines 
write 
iir.es 
*r  i  t  e 
write 
write 
lines 
write 
lines 
write 
write 
write 
write 
lines 
write 
write 
write 


b  e  ?  i  n 

ciear; 

in 

(1 

in 

(l 

In 

in 

in 

(I 

in 

(l 

in 

in 

in 

in 

(1 

in 

in 

in 


'CLASSli  iCATlON')  ; 


TARGET  BULLETIN'  )  ; 


DTG 

FROM 

TO 

s:Jt: 
i. 


121&30Z  j  J 

CFL   (CTF32.1.1)  ')? 

DISTRIBUTION  '); 

TARBUL  NUMBER  Id  ' )  ; 


d. 


NErf    TARGETS  '  i  ; 

AD0134  disss'!:!:      FORTIFICATIONS 

AD0135  34:5265577      d    T-34    TANKS 

AD013b  o4bo7ob*J      BUNKER    COMPLEX 

BDA') ; 

ADk?fc)7fc  tf^   laras-ea    by   air    stri^; 

ADKKS3  Destroyed.'); 


i  /  » 
I'); 
in' 


i » 


ty 


v  r  i  t  e  1  n  (  ' 
lines (1); 
spacebar ; 
Tbuiiisi; 
em; 


Aw'lib   Partially  damaged  oy  artillery 


procedure  tgtinfoj 

Ge?in 

clear; 

v  t  i  t  e  1  n  ( ' 

*riteln(lots )  J 

i  i  n  e  s  ( 1 ) ; 

ge  t  f 1 1 e ( ' que  ry  i  nf  o . t  ex t ' ) ; 

lines(i); 

space  tar; 
end ; 

procedure  versioni;  forward; 

procedure  versan; 


Targe  i  Listing  information 


begin 
*  r  i  t  e  1  a  (  ' 
writem  (  ' 
writeln('  I ! 
writeln(' 
«  r  i  t  e  l  a  (  ' 
lines  u); 

end ; 


CRT  CONSOLE 

L  A  N  G  U  AG  & 

PIEMEN TAT  ION 

DES  UN 

PROGRAMMING 


procedure  version," 


writ 
«rit 
writ 
line 
writ 
writ 
writ 
writ 
line 
writ 
writ 
writ 
writ 
writ 
writ 


oe 

ci 

*r 

ein( 

em( 
em  (, 

5(1) 

ein( 
eln  ( 
eln( 
eia( 
s(l) 
em  v 
ein( 
em  i 
elnl 
em( 
aln  [ 


si.  n 

ear 
i  te 


CaiaTiedia    cilite   <:c*  c  ' 
?  a  s  c  a  i  ' ) ; 

J  C  S  D  Pascal  'version 
itCoi  R.  J.  Coulter , 
L : C  o i    R .    J .    Coulter, 


1.4D 

u  i:  M  C 

jsmc 


in(loxs) » 

microcomputer  System  for  Target  Information   (MISTI;'/ 

'  ) 

Version  1.0'); 

prototype  microcompu ter  data  case  operation  system  fo 
target  information  section  of  tee  Marine  Coros  fire 
coordination  center.  It  is  tne  result  oi  a  masters 
submitted  at  tne  Naval  Postgraduate  Scnool.'); 


r  tne 'J 

supper 
t  n  e  s  i  s 


i  J  ill  C  T 


LOCATION 


DATE: 
COMPUTER: 
COMPUTER : 


Department  or  Computer  Scienc 
Naval  Postgraduate  Scnooi'}; 
vonterey,  California';; 
18  June  lb>ei' ) ; 
Altos  ACS  3004-1 ' ) ; 
Altos  ACS  S000-1'}; 


/  > 


216 


ersall ; 
e  r  s  i  o  n  1 »" 


iroceiure   versioni; 


ilea 
in? 
frit 
rri  t 
.  ine 
irit 
.ine 
»rit 
frit 
frit 
»rit 
Line 
frit 
irit 
nn  t 
lirit 
*rit 
Line 

SDdC 


a 
r; 

s(i 
ein 

ein 

5(1 

ein 
s  (1 
ein 
eiQ 
°in 
ein 
s(l 
sin 
ein 
em 
ein 
ein 
s(3 
e&ar 


S 75  ten  support b  upper  ana  Ao*er  u5e.  Cna raster  lelete  sey   j 
is  CruoouO  £ey.  Input  terminator  is  <return;  fey.'); 

I  U  r.  INFORMATIONS'); 

r rotes  so r  Lyie  A.  CoxfJr.'); 

Naval  ros t eraaua te  Scnooi '  /  i 
""onterey,  California  zso^**.'  ,\ 
it  b-64:6-244y  '  )  » 

LtCol  Jor.aii  J.  Coulter,  J  SMC'}  5 
Development  Center'); 
MCDiiC  ')  ; 

Guantico,  Virginia  <L '<£.  1 3 <± '  /  J 
PHONO; 


pro  ceo u re  syscpmenu; 


D9?m 
cie 
wri 
lin 
wri 
lin 
wri 
lin 
wri 
*ri 
wri 
wri 
wri 
lin 

ena; 


dr ; 

tem( lots ) ; 
es(i); 
t  e  i  n  (  ' 
es(l); 
t  e  1  n  (  ' 
es(l)t 
t  e  1  n  ( ' 
teln( ' 
t  e  i  n  ( ' 
t  e  1  n  ( ' 
t  e  1  n  ( ' 
e  s  ( 2 ) ; 


S y s t e n  operation  ) ; 
ne  options  are : ' ) ; 


T»  '  > 


Instructions    r'or    tne    user 
Formats    Used,    in   Displays'); 
Obtaining   Information   acout   Targets'); 
System   recnnical    Information'/; 

, return) ; 


proceaure  systemop; 

bes;in 
repeat 

sysopmenuJ 


3L 


if  e o i n 
case  c  c 

'i  ' 

'v' 

'4' 
'5' 


seiect ; 

reai(  en }  ; 

if  en  in  mencnar  tnen 

De^i  n 

(input)  t  n  e  n  r e  a l i  n J 

Of 

usermsti 
formats  » 
t  s  t  i  n  f  o  J 
version  J 

.J  ' ,  '  r'     :    exi  r  (systeno^  ; 
menuerro  r ; 
Deem 

lines  (1 ) ; 
options    concerning   system   operation   are    proviiei 
writein('in    tne    aoove    menu.    Select    tne    i  ten   you    *ant    from    tnesc    opt 
wri teln( 'and    type    tnat    numDer    on    tne   seycoari.    If    you  co   net   nesire 
*riteln ( 'information   on   systeT    operation^,    tnen   use    option    5    to    ret 
wnteln('to    tne    previous    menu'); 

iines (1 ) ; 
returnDar; 
ena 
end. 
em 

eise   menuerrorf 
until    Tienuioop   =    true; 
ena; 


*  r  i  t  e  l  n  i 


Five 


in    )5 

ions  ' 

a  r.y  ' 

urn'  ) 


) 

/ ; 
» 


proceaure   security; 


^e^in 
clear; 
•#  r  i  t  e  l  n  (  ' 
writem(iots); 
linesd&J) ; 
wri  teinl ' 
lines(7) ; 
spacebar; 
ena; 


security   G-uiiennes    j; 


rO   BE    iMPLiiMiiJNTi!;!/')  ; 


procedure  tgtciass  ; 

ceein 

clear; 

iines ( l) ; 

eetfile(' class. text'); 

lines ( 1); 

spaceoar; 
end ; 


a>2 


procedure    t  °i pri  ; 

r-  e  g  1  n 

clea  r; 

nnes(  1) ; 

getf" ile(  'prionty.ien'); 

lines(a); 

s  pace  bar; 
°nd; 


procedure   anaii;  forward; 

procedure   anai^j  forward; 

procedure    ar<al»5;  forward; 

procedure   anai4i  forward! 

procedure   anai5»  torward; 

procedure    t^tanai; 


Dee-ia 
clear; 
llnesd ) ; 

wri teinl  ' 

wri tein ( lets  ) ; 

lines(l) ; 


Target  Unaiysis  iuiaelines  ' ) ; 


riteia 

riteln 

inesd 

riteia 

riteln 

:  riteln 

•  ines(l 

:  riteln 

ines  (1 

riteln 

riteln 

riteln 

.'riteln 

inesd 

'riteln 

Titem 

.'riteln 

inesd 

■  pacebar; 

mall ; 

sad. 


Tne  following  format  ensures  a  logical  and  orderly  examination  }; 
'of  ail  factors  to  determine  tne  oest  metnod  of  attach  of  a  target.'); 
; 

'Situation  of  opposing  forces:'); 

0  t  \   m 

f j  , 

'Enemy  situation, .. include  information  tnat  *iii  aid  tarss:  analysis.' 

Friendly  s  ltua  tion  . . .  mf  ormati  on  tnat  will  aia  attach  of  tne  target.' 


Target  cnarac teri s tic s : ' ) ; 


'Tarsret  description. ...  type(  personnel ,  materiel,  terrain),  number'); 

of  personnel,  quantity  of  materiel  ana  activity.''; 
5 
'7ulnera bi 1  it y . . . type  and  amount  of  cover,  type  of  materiel,  type'); 

of  construction,  mobility  and  density  of  personnel'-; 

ana  material. ') » 


jroceiure  anali; 

>egin 
:lear; 
|Llnes(l) ; 

Titein  (  'Physica  1  l  ocat  ion.  ...  grid  reference,  altitude  of  target,  location"1; 


writeln('  of  friendly  forces  ana  terrain  features.';; 

lines  (1 )  J 

wri  teln  (  'Accuracy ....  of  the  target  location  ana  trie  agency  r^portin^  tne'S 

*ri  t  ein {  '  tarset .  ' )  ; 

lines (1 ) » 

*riteln  ( 'Si  ze  of  area ..  .dimensions  and  sr.ape   of  the  target  area  ar.i  tne')»' 

writeln('  distribution  or  personnel  and  material  in  tfte  area. 'J 

lines (1); 

writelnC  'Terrain  and  weather. ..brief  analysis  of  terrain  ana  weather'); 

writeln('  in  the  target  area.  Include  any  terrain  features'); 

writein('  wnicn  affect  me  means  and  metnoa  of  attach.'); 

lines (2) ; 

writ ein (  'Tareet  Capabilities :') ; 

writem  (  ' ' ) ; 

writeln('  Tne    capabilities    of    tne    target   as    tney   affect    tne   accorniisnnw 

«riteln('      of    t ft e   mission   of   tne   supported   unit,    S  ft  o *   now   a    terrain   f  e  a  t  >j  *a 

w  r  1 1  e  i  a  (  '      affects    enemy   capabilities.'); 

1  i  n  s  s  ( 1 )  J 

SDaceDari 

anai2; 


nroceiure   a n a 1 2 5 


cegin 

:lear; 

lines (2) ; 

write  i'q  (  '0 1  ner   Factors:'/! 
_     _  j  f 


*  \ 


io*    10    the    f o 1 1 o  w i 


ft o 1 " e    3 f    fireuower,    r e t ft c d 


ii  r  i  t  e  1  n  ( 
*  r  i  t  e  1  n  ( 
wnteia('of    a  1 1  a  c  *    ana    delivery   means?'/} 

i:r.5  5  [1 )!_ 

wri t eln ( 'Urgency    ",*'   it;-:^....  ij:-:r:.l-:    by    tne    type    >f    target    *'  =  r-' 

n r 1 1  e i n v  fleeting]    and    its    ca^aLilities.    )  J 

linesd )  J 

w  r  it  ela (  'Snemy    z  o u  a  z a  r -  a  a  a  u  r  e  5 


lility    of    tfte    =  nemy    :       ninirr.ize    tfte 


sin*, 


effects  of  firepower,  pre/ant  ie liver. 
arms  and  -1 :  : :  ■;  cc^'e"--;  ^r-:  agains 


eli.-erv  r«sr.s 


after  attach. 


a  r  i  t  e  i  n  I 

writela( 

lines (l); 

writelnt'Snemy    liscipiine... factors    rfnicn    »iii    ail    ir    jetermining    t;a''J 

« r  i  t  e  1  n  (  amount    : :    firepower    required    to    neutralize    r.  n  a    ~  a  r  a  1  e  '  ]  > 

writelnv'  ani    iis^iL^ine    o!    ^^^~ .■    personnel.'); 

1  i  n  e  s  ( 1 ) ; 

writelnv 'Obstacles.. ..considerations  concerning  t  n s  desirability  of  ' }  5 


writelnv 
lines (1 ); 
soacecar; 
anal3; 


c:  ,  i  .. - 


obstacles  by  a  : ;  a  j  .<  i ::  -r 


-   r^ifsr 


..-*- 


I  s*  l  :: 
e3.  r ; 
::  S  s  ( £  )  \ 

Lteia( 'Civilian       -  5    a 1  ties . . .^p^ro * :     it  =    :  _.       ;     .ivi. 

1 1  e  1  a  ( '  t  a  re?  t    2  re »    ■. .  \    c  r. e   es  t  i  :    ~: 

1 1  e  1  n  ( '  :as'j  aities.'); 

r:  ?  s  '  1  )  i^ 

"  i  t  =>  i  n  (  ' i  v.  0 r  i  s e  .  .  .  . ~  e  t  r. 0 1 3     :—::-:    t  c     > :  :  5 : :.    su  or  i s e  ,    : .. 


i  ' 


i  S  I      , 


1 t e  i  n  ( 

1 1  =  l  r.  i  ' 
Lreb'l  '  ; 
'  1  t  s  i ::  ('yeans    3 :' 

r  i r.  ■- 1 :.  v    

:  1 t  e  1  n  v 

kieia(  'wi  en    «/ni c      it 


5  c  t     :     t  :  ~  ■ 
1 1  .       Lcr. 


-:;-.-, 


U   .1  11  rill! 


t  ra  1 1 


,  1 


il  i    ivaiiaria    c  y  *■  e  s    3 1    *'  1 :    _  .  *    .     •  .  •  ir-i    •    :       "         : 
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i :'    eolnf input)    tae  a    read  a  j 

'.11  spT  An  d  Ul  » 
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space  car 


f 


o    ,    r.    ,    r      :    sxitUdrcu. 
7    ,    2      :    neauerrorj 


eaa 

eis°   menuerror; 
mtil    ~-aui  ooo   -    :rue  > 

Pn1  ! 
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*  r  i  t  e  1  n  ( 
w  r  1 1  e  i  n  ( 
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*  r  i  t  e  i  n  v 
to  r  1 t  e  1  n  ( 
v  v  1 1  e  1  n  ( 


1  s 
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*  r  i  t 
.v  r  1 1 

::  -r 

*  r  i  t 
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-.■.--  a  -  i    ' 

'1'     7  2.1US 


r » 
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wr 

i  te 

:  o 

r   t 

:  = 

1 
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i  t  e 

(5); 
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r unc tion    u    riple  te 
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i  i  n  e  s  ( 1 ) » 
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ieng  tn  (  mum  ]    <  »    c    teen 


*:::=.::\ 
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-  -   rare 
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for    :    :=    1    to    it    i o 
■  -  rir. 
i  e  1  a  y » 
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w      .1    WC 
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* r 1 1 : i :.  v  EaTISTIC 
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. 
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e  a  a ; 
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1 1  s  <£ 


ace    tae    tdC£-\;L   lis<£ette 
(left    sine/' 
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c  n  5    t 

3  r*?e 
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:  . 

I 

5    - 

1     • 

i«  r  i  t  e  1  a  ( 
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pae    ai 

rec  t 

- 

c     .  :. 
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r  5  p  e  a  1 
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w  r  i  t  e  1  n  ( 

r 

*I*  *#* 

i'UNCTIOiN    COM 
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m  T  I  w  2  i  H  V 
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i  i  n  e  s  ( 1 } ; 
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i •  i  s  p  i  -  y 

-Tab,     srn 

I  ii  I  }  r  t  a  t 
return  ,  > 


;c:a£i    :'iis    stat 
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.:u:-:.;r    a  t  i  n  f  o  » 

C  2  fs;  1  n 

v  r  1 1  e  l  rn, 


7:.r    t'ourtn    )ption    prints    tne    us 


r  jrja:       -,r.       -  -  j  r  '    ;    ^  -   ;       _- 

'    '  '  *-• 

*  T  1  u  21Q  ^      '-  .;      5  pcCl  al     pa  r&me  t  c?  S      {  ±  liCc     d  ^  _     oicSS     A  .     r  I'  i  0  T  1  t./     i.i.  ,      *  r     tld  u-w 

vritem  ( 'o;y  a  iifferent  proceiur2.  L\ne  ^a'li^.i  nspxay  snc.vs  a  aus 
*ri telnC 'creaa;lo#n  or'  tne  catee-ories  j:  information  in  end  Li=>i    :•!  ; 
l  i  ne  s  ( i  ) » 

^ritelnC'  Option  b  2 rases  ail  t.12  information  from  tne  iis.-cett=. 
#riUi:i  ':o:c  :t  tne  =;.a  01  an  operation  to  leciasiiiy  cne  lisiette 
writsln ( 'Tne  .asi  option  returns  you  to  tne  main  conric:.:  nenu.')» 

.l^Bi  (l  )  > 

ena  > 


'oce:ars  utninfc 


«/ri 

<v71 

*ri 

*ri 
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»Ti 
* :'  i 
*  r  i 


d  e  s  1  n 
cie 
iin 
t  e  1  n  [ 
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tein  ( 
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1 2 1  n  ( 
t  e  i  n  ( 
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iin 
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ar  > 
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aS 

'(TAHECL;  from  all  tne  i< 
•  as  printed.  T  n 2  r  0 u  1 1 - : 
'information  ana  print  i 

2S(l)> 

nro; 


mis    section   pro  v  10.25   various    nous2ieeping   pi 

e    110.    Ine    first    option   allows   you    to    cndnFe    tn 

r    tne    system   users.    Tne   secona    permits    you    tc    c 

^es   t'rom    tne    target    diskette    to    a   ^eooi.i    iisiet 

a    Ddc£up   file.    Ine    tniri    option   constructs 


~a  s  e    i-ransa 


-  5    s  x  n  c  c 


c  j enures 

c     p  d  S  S  v»  0 

c  p  y    1  n  e 

t  r      t  C      *  u 
a  r«s  c  t      1.  J 


targe 
n  r  t  ifl 

1 
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5  :    x  A 


will    let    y on    .  1  e  * 
1.1    tne    proper   "■  e  5 


/  » 
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1 


b  pa  °e  oa r  > 
em; 


D S ^  1  n    taniiiy; 
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clear; 

*e  1 1'  i  1  e  (  'notiTip.tsxt'/i 
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r  e  a  i  ( c  a ) ; 
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em 
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is    procedure    *:. 


tae    target    :' 


ib*    of    r  '  ."  -;  a  t  s  . 


a       —  ■""  -a 


;  j.     *  ..  -  .. 


"  ■-.  J 


lii  2°lb     5  r S     Q 5  LJ.  d  1  i  '/     IS 

lead  file  ,  taat  l s  , 

or  in  active  ['or  a  loa-  period  of  tire.  A 

;::^c:    s r o u i d    d s    r  e  i a i r. e i    in    ^^^^    1  :      :  = 


—  J2 

1  *  r 


-115  ,      :c.: 


a  e   u  1 1 


unc  tion    from    cne    nam    o 


i .  .  i 


r  t^ 


I a i s  procedure  selects  a  target  from  tae 
r.  d  displays  it  or  t n e  sr:££;.  in  t a  =  target  c 
3  t a r e e  t  a  r  ?e  t  surveillances  ?  a n  5 e  i a c  1  u u. e I 


if      tc  -VSlS 


r.a    print    procedure 


dis  iispia:, 
i  r  t  a  e  ll  1 1  ±  1 1  y 


-  -  -  -  = 


,  ^  ^ 


V  U  r  -  - 


"-  r  i  i  *  o " "  d  "  '  - 


^  i.  -i   j.  -> 


Taese  options  alio*  you  tc  ar.tsr 
:asa  file,  d i s p i a v  it  v:  t a e  screen, 
information  cr  discard  ail  of  tne  in 
cptions  *iii  return  you  t c  t a e  p r e v i 
cono!  at  e . 


.a    target 


« '-     i/ . 


r.  r-  ".-■-- 


-a-       ^US.iec:        i. 


-    tae    i  ar.-.  a  i 


u.    Selection    of   any    :f 
us    ~  ~ .:  ,    a f t a r    croressin 


l    -3 


11' 


.'-.  -  L   . 


T .1  i  s  pro  i  u r e  allows  you  to     struct  -  r.e«  r  a :  g  e  t  : c 
1 1  will  p  r  o  t  p  t  you  r  :  ^2  1  i  f  f  e  r  e  n  t  L  t  e  -  : :  carpet  L  n  fo  r m  a  t  i  o 
for  eacn  target.   .  -    i  ;     - .  -  n an n a t o r.v  a  ■. ;  y a     •  t  - :.  c  e  r  : . 


appropriate  i  n :'  o r  a  t i  i  . 


- ..  ,  -  /'ji 


items 


la  rge  C    :r^r 
3- r 1 1    location 
Z  e  s  c  r  i  p  t  i 
Priority 
Classificati 
Status 
Parget    type 


Dtner   h-ts    lite    nap   reference    ci    remarks    car.    r~    shipped    or 
left    b  1  a  n  k    D  y   me  re  1 ./    pressing    t  n  e   ?.  I  Z  Z '-.'.>    <s  j  . 


■JMITl.TSKT 


Ir.e    firing    unit    is    tne    lesignation    ::    tne    s    pportin.^    arra 
unit    wnicn    ir.ieria^es    tne    attaes    dt    tne    target.    :ne    input      vst 
not    ex  c  ee  c    b    letters    :r    cnaracters.    An    3  x  a  mp  i  e    of    •■    firing    mi 
*ouli    ce»    Air..  .2    -.— -,    Artillery ... P-l-le f    \avai    gunf i re  . . .CL3 


inter    tne    -^rropri=i=    unit    ana 


ie    :e:':;r     ce     . 


<  L  w    .    -  i.\    k 


inter    ;.'i:    numoer    of    ro'jnc«,    id^h    :r    finance     .  .-e,    :      cne 
target    ana    lniicdi:    tns    type    or    oaiioer    of    tne    cm  nan    e.    Lin  it 
tne    input    tc    It    cnaracters.    Use    ~    sic  a-:   or    a    iasr.    to    separate 
tne    Qumcer   ana    type    if    needed.    If    tne    information    is    i    i    «T:0*.i, 
press    tne    return    *ey.    An   example    of    input    rfouid    re:    Air. .2        C- 
Artiliery . . .  35    /   Bin   H3,    \0 "...!>    -   5in    5-i. 


■".  IT2.TSXT 


Tne  1  e n g t fi  of  ens  input  ex^ee'l:  six  ?:^ir:^:i. 
pica?e  reenter  tne  firing  unit  in  si*  characters 
or  less  5:.:  press  tne  RETURN  sey . 


: :  da 'IAu^en  .  rsxi 


n e  options  are: 


Damaged 
Destroyed 

Harassed 
Neutralized 
ii  lumma  tea 
LTnoDserved 


lie 


:no  *n 


1  s  nsj  t  n    ci"    : 

-  c  -     -  ;  .:      L.TP 


input    r^-^s    ten 


r. ;  r ,-.    tens 
:i    c  c  a  r  3  •  t 


.'    t  r.  -    a  c  0  v  =    s 
:  y    *  -  -    d  e>  s  2  r  v  = 


CHOICES.      .    :  1  5     IS     I . 


1-5    -:.  ;rtei 


1  -C       •»  -- 


at  Ca 


inter  cue  estimate 


: ..  =    d  u  t  u  d  1     : :     susoecteti     ~ d "5 c <r 2    C C     Cue 


' c? e t    ::  a  s  2 1    en    t .1  e    reccrtec    surveiiiancE.    t  .1 2    0 .'  c .1  d r- o e    used    a  r.  a 


3    pporti.12    ir-    employed    uii    otne 
It    1 0 e s    no 


1= c es  s ar  1 1  y    ad  v  e     ;a    it  re  e    ~ :  : '.    :.._ 
:;::::::::      !«  SL?'>6~-  .Hill    ::::.::.: 


intelligence    r e uo :  c  2    re    ?  1  v  2 1 . 

j.naiTc    r e  -j o  r  c e i  . 


input    ::'    cms    item    is    required    cy    ;..a    tarvet 
processing    cannot    continue    *.r.:cu:    ....^::::.  .    c.e 


-  ltd. 

or   1  n  i'  0  r  ma  t  i  0  n , 


Base 


-  ->     17.31 


a  ca . 


T  f\~ 


Dt  . 


.  J  '    .  -  i  i 


me    target    num  &  e  r   consists 


;  *  : 


a ".  .  :  0  u  r  :.  1  ce 


An  example  c :'  5  correct  2 r.  t  r y  .v  0  lie 


c  .-.  r  c  o  w  - 


5  - 


b  tor  tr.e  target  designator,  rleais  re' 


-  f  ~  -  - 
re    1  i t  a 


r  s 

Sr 


.  11  e   sr t  1  i    coordinates    01 


.  e .  5 


.-.   ^    n    -    -      c   r 


f      nijiinpfc 


ft.    six    r.'i-^^er    :ooriinat=    sues    as    c-rc?r    jar.    r~    cnan^ed    tc     aj 
1  i  <?  i  t    ::.e    by    aliin?    zeros    to    *  i  v  e    34  o  1 6  7  b  *. .    ?  1  e  a  s  e    reenter 


lata  . 


a  J.  1>  —  ..  L 


■yi  ,    7  rn 


Ine  target  description  ca::  De  up  tc  -±u.  characters  lone1 
include  d  0  t  n  n  u  m  c  e  r  s  ana.  ;  =  c  ;  c  r  s  .  I :  t n e  1  e s c r  1  p t i 0 r  e x c e e 
characters,    t n e n   ail   cnaracters    0 a s s e a   <±t    v  i  1  i    : -    listen  e 


sure    to    indicate    t n e    3  a  a  a  t  i  t , 
d    2  STJ    22-4   in    c  pe  n    :':ei:    . 


t  a  r°-e  c . 


a  .11 


_.  ;       re 


.:    :  T  p  i 


T  a  e  optic  p.  5 


:::  CLASS  i  i\j  Q .  I 
CLASSIFICATION 
are  : 


::::::::::::::  _„-..-/..•- 
i  N  T  Jsi  f  r  A  ?  G  &  I  PRIORITY 
r  a  e  options  are: 

:.  I 
t.     ill 

-  .   17 


7-    .  I  .  1 


-  I  j.  i  .T. 


•  z.    > 


tio 


1  . 


o . 


d  . 


i  a  r.  a. 

:iAI  target 

Installation 

Counter  Batter y 

Onservation    F  o  ;>  t 

Terrain 

V  e  a  i  c  i  e  s 

J  o  r  t  i i icationb 

Mi sceilaneous 


Tne  ur^'ci,  type  is  determined  from  tne  ur^ei  ifs.::.:::;. 
information  «m  ce  uses  to  group  targets  or'  tae  same  cr  si,  i 
type  to?*?  trie  r.  If  tne  Lar^st  canno.t  oe  ui^iii;}  into  tr.e  k 
categories,    use    nisceilaneous    (option   c v.  . 


Tae   altitude    is    eat  area    in 


gr.  e^re; 


.  n  d    consists    )  f    up    to 


fear    iigits    from   EZJJZ1    ic    b>9»».    i-'c:    ezai  pie,    4:3Z .    Tr.e    altitude 
must    be   entered    ia   meters.    I:    tne   altitude    ib    not    <:.•;*:.,    tae  a 

press    tae    recur  a    sey.    ?ieds=    reenter   data. 

:::::::::::::::::::::    SA.T2XT    :::::::::::::::::::::::::::::: 
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i  n  e    c  3rs°t    ^  3.  ix    ca    i  i  s  i  ^  r.  —  i    i  ^    t  a    t  i  "  a  j.    a  j  r      ..-  '  ~  „.    °"  u  a  I '  r  ^    o 
d r 1 1 x i e r  y    or    any    c o i  :m-;:on    3  f    supporting    a r n s  ;    it    c;dr     :.^    c  = 
5.ssi^:.a':    to    anotner    supporting    arn    suci    as    tar.ics    ;:.    »aicn    case 
option    r    snouli    De    c  no  sen.    In  is    s-iouid    :e    .iOteti    in    tne    remar.-ca 
section,    if    a    supDortiag   am    is    not    assigned,    se_r^.;    \  tioj    .-? . 


1 


^  - 


i  a    ^i^si, 


-V     J    I  J.      J 


j  u  t  c  f^a  1 1  c a  i  i  v 


rne    :5":r.<3    bee  c ion    can    oe    iiy    tc    -.    :naracterb    iony    am 
include    :ctn    nuncers    ana    letters,    if    tne    remarks    ei^ae-    -• 
cnaracters,    t  a  e  n  an    cnaracters    pa  s  s  ea    t  <•'    *  ^  i  *    :  -    niscariea. 
?.e"nar£s    Ubuaiiy   inciule    recommendations    o:    attar*   :::-,    a-rneduieb 

j :    :  i  r  =  ,    =  i  :  a c  -c    restrictions    and.    )  t  a  e  r    important    l n f  o r m q  1 1 o n .    J  o  r 
eiaraie . .  .  At  tac.-t    *itn    ram    armament,    53    .    ana    '.,    area    lire    at    H-2ii 


Inaicate  tne  map  and  saeet  a  ameer  cat  no  not  exceec  '_< 
cnaracters.  Pais  entry  :aa  oe  ietailea  '5^oc  IV  1 A  A  i  trol 
or    oc    inr'jr^^^    (le    Snnia!    as    let  ermine!    ty    tne    no. 


^11  (!STa       r   rnri       d(iat        c   t  1     -^  -  t-       1"'       1  nit  1  -   —    '       —       i"  H  t3       7  ~  "  -    —  T       »>c 


Detained;  intelligence  sugary,  air  tcserver, 

atrial  oncto,  rror^aiii:^  sensor  ;:  2tner  = 


r ■* a r n  coserver, 

"  e  •   "01   P^ampie, 


,:;.:•:  3222  :~i-cci   j.v.  =i.  ^  :>  not  s 


.-,  -  -  -  r. 


1 1'  tne  target  *ss  o  eta  me:  from  an  aeriai  pnotogra  n 
enter  tne  paoto  aumoer  ana  ^ress  tne  return  -:-y .  rci 
example,  hzlll'dE* .    If  tne  target  came  from  anotner  so  roe 
tnen  just  press  tne  return  icy. 


.\j  x  ^  w .1 1 U i  • 


If  tne  pnotc  gria  location  is  tae  s 

target  location,  enter  an  J  ana  press 

Dtnerwise,  enter  an  e i  £■ n  t  l i  ? i  t  n u r  b e 
return  £  e  y . 


a.r!c     -  r 


OilC 

r  e  t  u  r  n 
j  r  e  b  s 


'"e.y 


£  N  x  c.  R    r  r.  DT  0    C  Ou  XI  i  i\  A 


::::::::::::::::::::::    r  ti  J  T  J  uR  I  jj  c.  .  i  a-A  I     ::::::;:;::::::::.::: 

ire  coorainates  of  tne  pnotc  tareet  saouia  d?  t  aumcers  Ions 
ana  consist  omy  of  numders.  .  or  example,  =^565^42  or  c;:/::?^ 
A  six  number  cooraiaate  sucn  as  '6'~Sd7'6    car.  :e  cnangea  tc  an  eigat 
digit  one  oy  aaling  zeros  to  ?ive  croy:"':,  . 

If  tne  paoto  gria  location  is  tne  same  as  tne  tercet  location 

lie 


n e r. ,  e '.  lev   a r  a  a  c  i  press  c n  e  re  t u  r r  :e y .  r  le a  s * 
-.-.-.-  -  .  •-  -  

UlAUu  •  l^&i 


3  a  i"  T  P  -   1  3 


a  t  a . 


I r. •-  _  c  t  o  i  c  e  s  represent  t r e  accuracy  o *    tne  t a r s e t 
information,  a  target  anion  is  «::.  *  •.  to  ecis:  is  -  ;on:'i: 
target.  A  pronaoie  ana  \    pcssiExe  target   -   > u s    t    t c  exist. 
Ll    ire  intel lieence  evaluation  loes  not  fail  into  one  of  tiiesa  c 
arioi,  en  en  =':er  option  <i  for  .:..;:.  d  *  n  .  If  tnis  lie:  is  shipped, 
trie  system  *:^  automatical! ;»  enter  *n-:nc*n  ir  tne  iz.~--~z    rec 


'a is  y:cc?:a."t  can  only  De  used  on  tar   '   »r.i  r.  r.cvc  already 


b  - en  c  r e  i 


and  exist  in  tne  list  oi  targets.  . 


S>  v 


-  -      : 


*ay    tnrou^n    tne   existing    tar6ec    information   untii  :ac 

ilex    you    *ant    to    una  :..•-  .    Ine    sys  tern    *i  li       ispia.\     tn  -  -  '■  -  :  : 
information    and   ib.-:    it    you    aesire    to    ;nan«?e. 

A    K£S    response    ►:.-    cause    tne    item    to    L5    cnar.feen.  -    ... 

or   i    R  ?  7  u  R  N     ;  =  ./    *  i  1 1    cause    tne     -•     t  e      t                .    t  c    tne  =  x  t    item. 


Ine    target    ;::  ^r'ouo:.    tui    not    -2    :::i:^e:    unless    ....    jz 
t e y .    r o u   car    leave    tne    u r o c c    ire    •  *    - ;.  r    t  i    ■:    ■  ■    i     pi 


15  5      .   . 


C  n  a  n«;  e  s    to    _E  A    :r    aiiitions    to    tne    h r A    portion      :'    tne    .::=: 
r  e  c  o  r  a   -re   performed    b ./    option    -    of    tne    :  - :- .-  e  t   .me     . .    -  .       -     ■.  - 
after    re tu mine    to    tne    men    . 


:r.a    first    :yticn    will    lis  pi  ay    : :  e    target      ari.    Ir.e    ie    ona 
cnec.-cs   eaon    iten   of    target    infomtion   ana    aiio*s    you    to    cnane'; 

'  3 


tr.ose 


w        J    ~  c  , 


s    aesirea.    Tne    t n i r a   option    v rites    tne    c n a n a e s    lc 


♦■  i 


1 2   ana    t  n  e    last 


o 


Q    ' 


ar?3t    .r  ^  i  o  r  i  1 1  —  s 


PRIORITY    I... .Targets    capacle    of    preventing    tne    exec u tic 


oi    tne    plan    oi    ac 
ana    its    elements. 


y  tn 


p  l-5r.ni:  s  t 


PRIORITY  II. ..Targets  capacie  of  immediate  serious  : ..  terie  re  nc: 
n i  t n  t n e  plan  of  action  o y  tne  1 a n a i n y  r  o : - e 
an a  its  eienents. 
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a  r.  a  its  e  l  em e  n  t  s . 
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n :  )  r  t.  a  1 1  0 ; 


it  in  g 
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an   example   0:'    tne    correct    entry    *ill    oe    iispiayeu 
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LAia    L.... Targets    tnat    *ill    not    i?e    lire 2    upon   prioi     tc 

1/'  —L'  a  y  . 

j-  a  J  o    £... .Targets    t  n  a  t    ti  u  s  x    n  c  x    o  e    ae  s  x  r    ■  -  i      i    ±  u  s  e    c : 

prOCaCls     ;uL;Tr     USS      )T     aund;llU:.c..     .  -__       .         i.^iebb 

autnorizei    cy    trie      i       ar.ner . 


~  .  •  a  ""•■•„    I 

£NI£R    IARG-jI    ACCLjRAC  i 
I n e    3  o 1 1 o n s   are: 


1 .      *oniirmea 
d .      rrooaoie 
3 .      Possicie 


i  i  *  i  ■'     i  'J f  r  -T.  L  1  iW     -.  a  •      Hi  c  i  wW  jCj.l 
n  ^     nnTi  Qfi^    3  ■** p  : 

i.      ArlTi 

C  .  . .  G  £ 

5  .         a  I  .1 

4;  .       Aih  ,    A*  I  . 

z  .       A I R  ,     »j; 

5  .       xir.  I  :  .    i.j: 

?  .         h.  I  R  ,     n'.';l  ,       <  b  I 

r  .      3  x  a  e  r 
^ .      None 


u  d  ,i  .*■  o-  i .    £ilM  J  .  i  i A  a       .  •   .  . 


I  re    op: icab    are : 

I .  Display    t n e    target    jc. 

c .  Pde,':    xnrougn    xae    :a;^Et 

3.  tfrite    tne    cnanee    tc    tr-e 

4: .  Return    to    previous    ne ni 


n 


instructions 


luii  ,al>  jl/  1  im  lj  a  i  A 


■p  ; 


ins     :  ;/  i  '.  ■;  '      *  1 1 1     z  a  :.     I  0  T     S  d  C  "     1  t  e  i       0 "      i  ..  I  C  I    '  i  ^  i  J  ;.  . 

^nicr    t  n  e    required    ihig  rnatioa    a  no.    ; r - ;  5    t n e    r. jj i u R.n    ic 
?    i f  i  .' ;    t  n  1  s    procedure    1  i    =•-..»    time,    t y  os    -1    -*   a  1 1  e  r    3 .  s    ■: .'i » . ^ 


1      s> 


-  J     5  *C  1  p     d     5  =  C  t  1  j  G  «     JUSt     -  r  2  5  S     3     r..  a»  x  d  n;ii     r.  c ./     dad     t  n£     5 .}'  S  t  eH      will     =0 

c  o    tne    next    item    ox    1 :. :'  c  r  *  i ;  i  j  :,   ururia      ::.r    in forma  cion    reou^itel 
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it.  vanne  Corps  Representative 
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11.  TRADOC  Researcn  Element  Monterey,  Coae  rKi'M 
i\avai  Postgraduate  Scnooi 
Meniere/,  California  r>cjc.t 
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